Tech Win 1999 February/TECH Win 02-1999 Disc A.iso/ols/lzh/compsit.lzh/CompsIt!/Compose.STA

UltraCard Stack | 1998-10-27 | 428.0 KB | 11,158 lines

CRDHmainscreen
CRDHtabscreen1/2
A440EXTI
zAIFFCOMM
0EU`ed\P>(
*?P]de_TC/
#9LZceaXH5
3GWaec[M;&
,BS^dd^RA+
&<N[ce`VG2
 6IXbebZK8"
0DT`ed]P>)
)>P]de_TD0
"9LZbeaXI6
3GV`ec[N;&
,AR^dd^RA,
&;M[ceaVG3
5IXaebZL9"
/DT_ed]P?)
)>P\de`UD0
"8KZbebXI6
2FV`ec[N<'
+AR^dd^SB,
$;M[ceaWG3
5HWaecZL9#
/CS_ed]P?*
(=P\de`UE1
    !8KYbebXJ7
2FU`ec\O<'
+@Q^dd_SB-
$:L[ceaWG4
4HWaecZL:#
-CS_dd]Q@*
(=O\de`UE1
    !7JYbebYJ7!
1EU`ed\O=(
*@Q]dd_SC-
#:LZceaWH4
4GWaec[L:$
-BS_dd^Q@+
'<O\ce`UF2
 7JXbebYK8!
1EU`ed\P=(
*?P]de_SC/
#9LZceaWH5
3GWaec[M;$
,BS^dd^RA+
'<N[ce`VF2
 6IXbebZK8"
0DU`ed\P>)
)?P]de_TD/
"9LZbeaXI5
3GVaec[M;&
,AR^dd^RA,
&;N[ce`VG3
6IXaebZL9"
0DT_ed]P>)
)>P]de`TD0
"8KZbebXI6
2GV`ec[N<&
+AR^dd^SB,
&;M[ceaWG3
5HXaecZL9#
/CT_ed]P?*
(>P\de`UE0
    !8KYbebXJ6
2FU`ec\N<'
+@Q^dd_SB-
$:M[ceaWG4
5HWaecZL:#
/CS_ed]Q?*
(=O\de`UE1
    !7JYbebXJ7!
1FU`ec\O='
*@Q]dd_SC-
$:LZceaWG4
4GWaec[L:$
-BS_dd]Q@+
'=O\ce`UF1
 7JXbebYK7!
1EU`ed\O=(
*?P]de_SC/
#9LZceaWH5
4GWaec[M;$
-BS^dd^R@+
'<N\ce`UF2
 6IXbebYK8"
0EU`ed\P>(
)?P]de_TD/
#9LZceaXH5
3GWaec[M;&
,AS^dd^RA,
&<N[ce`VG2
6IXaebZL8"
0DT`ed]P>)
)>P]de`TD0
"8LZbeaXI6
3GV`ec[N<&
,AR^dd^SA,
&;M[ceaVG3
5HXaecZL9#
/DT_ed]P?)
(>P\de`UE0
    "8KYbebXI6
2FV`ec\N<'
+@R^dd^SB-
$;M[ceaWG3
5HWaecZL9#
/CS_ed]P?*
(=O\de`UE1
    !7KYbebXJ7
2FU`ec\O='
+@Q]dd_SB-
$:L[ceaWG4
4GWaecZL:$
-CS_dd]Q@*
'=O\ce`UF1
!7JXbebYJ7!
1EU`ed\O=(
*?Q]de_SC/
#:LZceaWH4
4GWaec[M:$
-BS_dd^Q@+
'<N\ce`UF2
 6JXbebYK8!
1EU`ed\P>(
*?P]de_TC/
#9LZceaWH5
3GWaec[M;&
,BS^dd^RA+
&<N[ce`VG2
 6IXbebZK8"
0DU`ed]P>)
)>P]de_TD0
"9LZbeaXI5
3GV`ec[N;&
,AR^dd^RA,
&;M[ceaVG3
5IXaebZL9"
0DT_ed]P?)
)>P\de`UD0
"8KZbebXI6
2FV`ec[N<'
+AR^dd^SB,
$;M[ceaWG3
5HWaecZL9#
/CT_ed]P?*
(=P\de`UE1
    !8KYbebXJ6
2FU`ec\O<'
+@Q^dd_SB-
$:L[ceaWG4
4HWaecZL:#
/CS_dd]Q@*
(=O\de`UE1
    !7JYbebXJ7!
1EU`ed\O=(
*@Q]dd_SC-
#:LZceaWH4
4GWaec[L:$
-BS_dd^Q@+
'<O\ce`UF2
 7JXbebYK7!
1EU`ed\P=(
*?P]de_SC/
#9LZceaWH5
3GWaec[M;$
-BS^dd^RA+
'<N[ce`VF2
 6IXbebYK8"
0DU`ed\P>)
)?P]de_TD/
"9LZbeaXI5
3GVaec[M;&
,AR^dd^RA,
&;N[ce`VG3
6IXaebZL8"
0DT_ed]P>)
)>P]de`TD0
"8KZbebXI6
2GV`ec[N<&
,AR^dd^SB,
&;M[ceaWG3
5HXaecZL9#
/CT_ed]P?*
(>P\de`UE0
    !8KYbebXJ6
2FU`ec\N<'
+@Q^dd_SB-
$:M[ceaWG4
5HWaecZL9#
/CS_ed]Q?*
(=O\de`UE1
    !7JYbebXJ7!
1FU`ec\O='
+@Q]dd_SC-
$:LZceaWG4
4GWaecZL:$
-BS_dd]Q@+
'=O\ce`UF1
 7JXbebYK7!
1EU`ed\O=(
*?P]de_SC/
#9LZceaWH5
4GWaec[M:$
-BS^dd^R@+
'<N\ce`UF2
 6IXbebYK8"
0EU`ed\P>(
*?P]de_TD/
#9LZceaXH5
3GWaec[M;&
,AS^dd^RA,
&<N[ce`VG2
6IXaebZL8"
0DT`ed]P>)
)>P]de`TD0
"8LZbeaXI6
3GV`ec[N;&
,AR^dd^SA,
&;M[ceaVG3
5HXaecZL9#
/DT_ed]P?)
(>P\de`UE0
lSFX!
nomeSCRP
on timerExpired
  global REAL
  play bg sound "metro"
  start me expire in REAL milliseconds
end timerExpired
metroEXTI
AIFFCOMM
0Ue\>
?]eT/
#LcaH
3We[;
B^dR+
&Nc`G
6XeZ8
D`dP)
)Pd_D
9ZeX6
G`cN&
,Rd^A
;[eV3
IabL"
/Te]?
>\eU0
"KbbI
2Ve[<
A^dS,
$McaG
5WeZ9
C_dP*
(Pd`E
    8YeX7
F`cO'
+Qd_B
:[eW4
HacL#
-Sd]@
=\eU1
!JbbJ!
1Ue\=
@]dS-
#LcaH
4We[:
B_dQ+
'Oc`F
7XeY8
E`dP(
*Pd_C
9ZeW5
GacM$
,Sd^A
<[eV2
 IbbK"
0Ue\>
?]eT/
"LbaI
3Ve[;
A^dR,
&Nc`G
6XeZ9
D_dP)
)Pd`D
8ZeX6
G`cN&
+Rd^B
;[eW3
HacL#
/Te]?
>\eU0
!KbbJ
2Ue\<
@^dS-
$McaG
5WeZ:
C_dQ*
(Od`E
    7YeX7
F`cO'
*Qd_C
:ZeW4
GacL$
-Sd]@
=\eU1
 JbbK!
1Ue\=
?]eS/
#LcaH
4We[;
B^dR+
'Nc`F
6XAPPL
fSFX!
myguitarEXTI
AIFFCOMM
$+1447=FS\a`ZVTQPONMJHFIPROJC9-'(4K_ovusqpppqsvuqmihkic`a`^R>457;4$
7XpyubA
(7>>7204>Maow{zvnhegpvz||{xvvvvvvutttuxy{|}~~~|{{zzzzzyyzz{|}}~
~~~~~~}||{{zzyyxxxxyz|}}}{xuqnje^ZWWZ\]]ZVQKD?<84-$
"KfskN
 /BXfmiXI;446:=?DKS[^\YWY^dltz|{zyz}~~}|ytqoortutrsvx{zvsrsxzzxsqrtvwvvusomlmoqrstsrmf`\[\_bdffd`ZWVZcfe`XOG=1)%$')*)'$"
#)-,)%!
!'/578779;<?ADGHGFDA=940-,-06;@CDDBAADHKMLHB:41/1248>FNUZ]`aa_ZSKC<99:<@FKPSUVXXXVRME>842248=CKRW[]^_]YSKD<879@FNRTVVVURMHB;4/*'$"  "##"!"$&)++)&
"(,-*%
$,005?FLOPPQRQQPONNNLHDA?=;878883,#
)-*'%'-0//01331,$
"-355346665457;AFJLLKIE?5(
$),--.13430+$
"%'&!
$'*,,,)$
$'('%"
 "&*1<EKLHC>6-&"
(053,
     -0359ADCB@??<5)
(3;@DFJORTUVWYYXUOF:*
 %((*-.../.+%
$&$%('!
$0;CD>9325:BKSTNG=62-(#
&-4640*'&'*/6@MW^`[WSOLJIHHGDCBABA>:4,"
(/20,&!
!%,5AKSUSOID@=;852/,)'$
,:CDA944555431/,*(%"
,8??>;852/--,*'$!
 &(+.-*%
%-0125:<;94/,(&"
.;BDCDGJJIFB>:62-'
#,00257655553/)!
"$&()(&"
#)/48;==>===92(
'5=>@CGNSWYYYYZZYVQKB6(
,6;<>CHNU\`abaa`\VMA2"
 (.37;>@@@A@?=83-$
 &*/49?BCDCA>6)
!0:@GOUY[[]`cefec_YPE8+
!/9=AEHLNOOOPRSROKF?7+
 #$%&%%%!
',/12220,$
 $(**(#
#)+*&"
&,.-+&
"(*)%
&-477632259;93*!
!(,--,,.15:AGLMLHA7+
!*//,'
!)--,+'!
!*0231.*%
"''$"!!
#'*-/0/+$
#(.231+&#
'-0/+))**)%"
#&%&*,--,*%
 )..&#"%*/23320.+*+,/.+$
%-0./37;>@A@<4)
!*169<>@@?=81&
$,247:<==>?BCBAA@?<70'
"*03568;<;84.(
"%')**'!
$'())'&&&%"
!$'),0379:962-&
(169<>@BDDDB@;5-%
#&*-..../120,&
%*.38;<<<;;84-$
$)-/0222/+&
,7>A?>=?BGNSTX]_]VJGNPNKG=.&&5Qclsy{zq`M:/,&
 -/&#$'+'
!&*.3:DO]gmpqqrropsvyzzz||ytmighlpsqmhedgijifeglrvyyxvuux{}~~}}}}~~
}zvpjd`^]\ZXUQMIEB<60*$
 $(+,,,+(#
'H^jcJ
$6DNPJ;"
*<Safgcdinqrrk^UPUdpw{zyxuqmigfeca`cilmmjlqsrk^PA857=ENV\]ZXXVRI<1'
 ,7BFD=3(
 &)++.242,"
#$" !#'+/24441-)$
 )/477777741(
)295' !*>GGA5/04;CLTZXMB6-($!
(:LVXYZ[]YNC85:EUcmrqqqpnh]SIB>6+"
 (,2:ERXVNA2
$7>9525?HMSX[[\\ZWM<-
$/:@BDFEC8&
 !'29>>:62+#
"-4565573)
)471'
!-8=;849HQUVTTWXXQE7(
(4<@;/"
%07:>BDFA6&
%/3347:<90#
"$%#"#"
&*)+146663-!
"'*-0,!
#*17>BDDDEGIIJIHE>4&
"'+/11.'
&,/2552358;<;5*
'586//48999872)
$)--(
$/8<:::96-
%-0-.59;95-!
'1:>===;6.!
5CKNLKIC:/!
$&)+1:@CGJNQSSROJB5#
)29<>??<70%
$(*+*%
$(*((+)%
%))$
(6>@=3*!
"*-,&
!'/2321.*!
#(*++)$
!*02-
",11*
 ),)
#*19>ABBCCCA>:2'
#&)-047888774.&
&/8?BFIID=1)$
 )5<@@=82)
 %)+,*$
 $'('#
!#$$"
%*-024652+
 -7>AACFHHHIF@4!
(/3558=ACEEED?7,
$*-.035555540'
"(*)*-/013452*
(.0479:;=>@<4(
"##  "$%%%!
!%)*("
"-7<<95.#
".3/&
'.100/,%
!&(($
$-2/#
*/.-,-0.(
#&&&%!
#,0/*'%$"
$)++%
$*/0.&
$DW]\UTYZVSOKG@6.&"$$#
!,:A?AHR^ca\TH:,
,=KTYZYSH?649AJQTUSPLKLLKIFB>=>BGGA5$
$/9CLU^baabbc^VMD;4-'#!  !##"
'.5:?EHIHD>6346:;741,&
!'.21.*,4;?>7-#
*7>>@ACDEEEE@74443-#
#03-(%$&%!
'29<=>@BHQTTL>65684*#
$5BLNHB;:>?>8.&" !%,27989>?=5'
%19:4-%
%29<<7420-(
!&.344322/*"
    "$&&$
#%#""!
*02-"
 %(($
$*10(
#+.+"
%,1320.+'
")-,(!
"(''')-//-)$
"()'"
!(*)&#
*8DMTXZZXURMHB<5,"
 &/7=ADDA<5-&
").16>BC@93,#
%+/0.(!
'043.&
&5CIG?1$
"%###&+0441.*+/479;;93+!
!',28>CFGGGFC=4+#
,30*"
!$*047774.%
 "#&*1<DHIFEEFFEC@;2&
!$""%&%&)-12/../1369=?=93+!
!#!"%''),/22.,+*)'%"
$+.-.1,"
!!"#$%$
#(*($
"2EMJ?,
(.,(!
&19?BGPUWVSNHC=<?>8/#
$.8AHLQVZ]]ZVRNKLOQOH:+
-9?@><;;;=BEGJNQURH:(
$3;<4%
 .574-+.:Q_efb`c`XL<1)%%%&+4;=9,
!&'&#
,9??82+$
"021-(#
$1<ED;-
'>MRI4!
"-04:>@=315?OY^\TH7&
%4:961&
 ""$'))'$
"(/0+!
 &)'$
 #&)%
$*-+$
!$#%)+)'$
"*-../1.$
 $&'((()+.1.&
$)-//,&
 .9AGJIECCFMRWZ[XSNHDDB>7/)%"
#')($
*17;>@AA@?><82.--//,++++(#
"$$$%&&'&(-/0.)&$%()(%
%*-03689967;?EJNQRNF@<<=;62/--*$
"$#'/6<9/"
%,/11225;@DFFFGFEEGIKIB9,
!(2=DEFHLQTSLA4#
-9?BB@;720/.-+(&%#
$'(-6>EHIKMPTXZ\^_aa_[UNF?:653.&
+35659BKSXXYYZ[ZXTND5)!
 &.8ELMNMNRTUSOMKKONJB6&
"+2:?DGIGB9,!
%)*++)'"
"-4:<?CFIGA5&
'/452/,)(%!
 %&&"!#(05786679=?@<2&
$-12.*&"
$+-*$
$)+,/42*
&-036:@FJKHEB=7.$
,=IPXbimmhc_\Z[]ZTQQPOE1*1;HMI>,#$-?GEC@=:885/)#
"*.4;:2)
!0DUeouwvoeadjtwtogehmqrnh_XRRX]a`[TJCAFTbpxz{zyxwvvwy|}~~~~~
~}ysme\RH?82-*%
%)+*,/0-+(&#
"%'&
~zxxmY6
"%(+,-,)&
%3;;:79@EHKPV^aabbccdfghe^ULHILPOIA7+
*<FIJINW_gloqrsvxz|}~~~~}||{zywsme[MA5-(
$%&&(+/49>ACDDB>80(
#*-+++,-,)'%$#!
#'('(*,,*%
$)/5>IRY^`cfhiiihgd^SE;4.)#
 "#&*08ALSVWVVXZ\^bb_XMB81.,+)&#!
"$&''),/12234567;@HNSWXZ]]]\\\]ZUL@5+#
 #$%&'&"
%()'"
 *4=BCB@<60,.7?D@0$
 )39<=:6/(!",4:8-!
"+366540)
"$%$
$3981'
#.1-#
#-6<ADEFFD@;2&
&5:6&
'06868=CHLMKE=2&
(0321137;?@?=92)
    !!!!!
 !!!"#$%$
%(**+,'
&4?DDCC?5)
!+;FLPOQUUPG9-#
'3;>AA=4(
'9EMQQSWYYVNE:,
,7:;76888873,!
#*,+**(&&'('&"
!%)($
&/42)!
#(*)&!
0Janpqqpnljf`UE3
-5<@B?9/$
$5@FGD;-
'.10/-.27=?@?=8/)%#!
'1<BB=1!
%4CJIIKOUXXSJA6.(#
")3@LW\[[\[YPC1
#-6=AA>7-
 "$%%"
$1;CILORUX[_`^YQIC=755567::83+&$##!
"$&)'"
 %.31.)%"
*01/-*'%%((''(+/.*(&$!  "%$
",4773+%!
!"!#).1/)#
""""
!+.+'#!#"
 #()'!
$,12/,($
,8@B@?@;3&
 '19?=2&
 "&-/,$
""#$#"
!%),,*&#!
#+14541-*'#
 *142-%
)27?JSY]]YPA*
$)-0221.+*,-./110,'#!
 "####!
%*06983+#
#+3;AEHJID;.#
!&/59:852-&
")---.//.+'"
#*03542/,)$
%+//03440(!
%))&
&,/1248;>?>?BDEFEDCA>;72.*&"
#)*+,/6:;;9:=@DHMSX\]]\[ZXUQLE<4.)$
#3@JNLLLOTUUSPMKIIKOQRQNLLMOOMHB;3+!
'.4;BFGHJMRUUTQLF?71-("
)/12248;>>=<:850*),1552.)$
$%$####$%%%&'))'"
 $%%&)-28==:73.(
 ,6<?ABCDGLPRRNJD=4+
-:CHHGGILPTWXXURNJFA<5-$
'/7=BHNSX\`ejkjbUJ?73/-,,*'$!
$,6=AEJOUWVTRQPLE>62220-(#
!'-4:?A@<5.($##$#
,6<@@@AA@ACDC>5*
#*/6AGIGA>>??@??>:2'
 $),.-+'$
$$#!
+8CIKJGDA?=:61+%!
'.0.'"
%+./0/.)
)5BJMLHC=3&
 "$%*4;?=50.-/,%
 "##$$%&'&&'+3;AB>:6/'
(/1/17=DILNNMJGEB@@ADGE?:632/+))(%
#0;ABDFNZeottrnib^]\]ZRKEA@@?=:5.'
 '-58899;=>>=;83-&
$*/4677789;<=<:850+'#!
%.7?CA?><975578899:==<:65678740,(#
 *159<?BEFGHKORTVVVVVVURNKGB>:62+"
$&&%'*-05;AHMPPOLHFEFILNMHC<61-)#
-586532357888985444552-&!
(5>DEC@><;;::<=>@ACDEDA=7/%
!&,39<;978>A@:/$
$0663,)*,.-+(%!
$.69<==<=@CHLRUVURNKHFA;4,$
'055459AGIIGFD>3*$#'*-,'
 (09;71,+.27=EMSVUTROKF?>BIRVUN@6/*)#
#(,./.*'$""!
#+18?DILMMLLKIEA=954320-)%!
$0=GLPRV]`aa^ZSKB91,*+021+
"',033459>A@<720..022/(
#.8?CFHIIFB?<;:70(
#'*-02468::::961(##'/1-)$
!&((&#
#),,'
 %())('''(*/49=>=:62.)!
!&*09?BEHKMNMKGFGJNNJB6)
!&*-/13567753/(
")--./010,+,,+%
""#&)-010.+)&!
"&&$  %,7=>>;73-&
"$$%'+0469<@DEDA=83.(&&&%"
 '08=@CFHIHD?7/'#""#"!
""$(,268;=??@???<6-!
 "$%&(*,./0000/+'!
!$$&*-2562(
 &('(.131,%
 #$&('"

&,159:852-(
!##"
"'*+*&
!"
(-+,05:==<:720000,%
,6<;3-)'%$##$%$"
(132--048;=?BEGIKLNPQRRQNJE@<72*
#%(+08=>?>?BEHJKKH@4,(')($
 "%'&&&')(&%$$$$$&).343-#
 $(+./0110.-+*'#
 )1:@CFIKKKKLLLJIGFEGLMMIB<75530-*('%"
!'*)$
&+-,+*%
 $'*.38;<=<<====<<===<:86420.+($
!'*+*&$$&)-27;=;72.-,+)''(**)&$"
&))*-,'!
"&()($
").11/-+($
$*/2321.*&"!#(/3662/------.02320-+*)))))'$
#-6;:840,)'#
#%&%$$!
&))('&&%#"!!"$'*.-)"
"),)!
!%''%
"&).4:=>==?@BEINSVWWVUTRPNLJHEB@=:630-(#
 $*,+-00,$
(498:>CIJF>2!
%+.0)
[phone]*
 %).12-"
#*/450%
$[phone]:=ACDC@=:3*
!%).12358>ACCB@@??><;:875420.+)&#
#+//-'
&-012345668:=@EKOPPOOONMLJGDB?<:61+"
$'*-010,'!
 $&(*,/147;?CGJLKE?84211/-,*+,/330(
"$&)++(#
$,23/-.2:;6,
"%'*-15<CKOQRSTUUSOHA831.*&
 &*.26<DHIE<3("!
#),)'&%&$
%.7@FNW^dfgghhfddb`YOC5./7DLNMIEB?;74/)"
 '++%
%/:GPX]`cehjlmljhfddccb`\WOD<76:;;6.&
%)+,,,(
%0;HWbhkjlprtttsrqpppnljhfca^[WRKE>:742.+'%"
!(.05:BLSWYYZ\^___^^\[YWUSQNLJHEB=:86420-*'$"
',//.(
'-38<?ADFHJLMMMJGDBA@><:98876420.,*(&$"!
#-489;>ACFHJKKKJJIHHHGFEDCB@<97431/-*'$!
#*032368<=>>>>>>==<<===<:86420.+(%!
 ""$&'&"
%+269;>@ACEFFGFFFEDCBA?><;:8742.+(&#
$,3993.('*+**,2<ELNLJHHIIHHGFDBA?=;976430,&
 !$)1<FNRQQRTX[]^^\YVTRPOOMKIFC@<82+!
$.5;>>;5-!
*4:;72+#
"""#"
 #%%"
!%')+-//-)"
%()**+.//+%
"$&'(%!
 "#$%&&$!
 "$$"
 "%&&%#
&*****)%
!"""!!
 ).-($!
(15641/)
!'.5:>=64554-"
"$$"!!
!*4:<>AEIKLLKG@:4/-*&$"#&())*,.-*(&%$"
$%%$#"
"'-1468;@DGHFDA><;=>?=:752/*#
$06750/1356666666420/../0221/-*'#
 &).49=???@@@>;:<>@@>=<:73-)&%&&#
#(*-/0011258<?ABAAA?<70(
 %)*'
 "#$$$$&&$
'17;>BEGILOQRRRSSSSRPNLJHFDB?=950)!
%('&$
!%()+-.26:>@@??>>=:5/)$!"$(+,-//-)"
(/258<?@=;83,&"    "&(&
)/01138;<<:850)"
(056557883,$
 &*)$
!(.230)#
!"!!###""!!
")*(#
#&(**++)&
!).0364-%
 "#"
 .68:;>CEEB>6,"
#+,*#
$)-/147:=?@ABA@???><:97530.+($
'.5;?@=<<:71)!
!&,00/,'!
 &/577669::9754431.(
!$(*,+'
#)-..--..,(#
#(+,,*&!
'.24568::9741/---.-,*)'%!
 '*--/3552,%
 "#%&%#
 #$'),.02333320+$
!$&),.146775434555320/-,*)(''''%"
!""!"$&''((&#
 "#$$"
!$&),/379:70'
!-4778=AEHKLKIGEDDCB@><:86420.----,*'#
 $"""$%#
+24400467877665567985/&""%,.,*(%
%+.1479:9::<??<5+!
!+132258;=>=;9755554210/-+)('&&&&%"
!######!
#$"$(+,,+++)$
 $'),145555433345663/+))(&#
 (/4567:>ACDDDDC?91*$!!%.485)
 "$'-2478:=?ACDEDDCCCBA?=95/(
!)/2112356667653/*!
#'*-/135789865433210.-,+**+*)(&$!
&/68850)
#&&$"!!
 #%')))((''%"
%''&&(*,.1222223210/,(!
"#$#&,/.*#
"#!#')+,-.0/-*%
!$&((()('$
 #(**)(()+-.-,)'%"
#%$###$&('#
 %'('&%%&''%
 "#$$##"!
!"##"!"###
"%')))((()(&"
!$')+,,,+)&!
 $())%
 %())(%!
"&'&$"
*231,*+*($
 $''&$
$*.0/,("
 !""
 !"!
!#$$#
%09?AABEGF?3$
%)(()+--*'#
 $'((()%
"%'('#
 ',0101244540*
'.233210.+%
#*/1475/!
%&),.1/(
+6=>:899:972+
#*28;==<<80&
&*-1453.'
 -6>ELSXYYYZ\]\XRMIHHGDA=:852.)#
!%+148;==>>?BCEEEB<3&
 $&),./.-,,,,,,,+*)&"
$()+0369=?@@@??;4(
&,02469<@DFGGGFFDA=6.$
 %.2/'
$+/10145653/)"
 #%'((()+++*)(''%#
 &*,./26:=>?@??>>===;851-'
$(*,-*"
+252369=ADFFGGGHGFEEDC@:2(
 *./,)%
$-0+!
%)+.1220.)!
&++-13222368:::98887542/*#
$*.024557;?ABCCBBA@><;97530.*&
#*0478;?AAAACFGGFFEDA<6-$
%.344458:<=>=;83-$
"$&(*+,)$
!#$&(*,-/01222110/.+($
![phone]::86431/-,*(&$"
"%(+.27<@CFGHHHGGFDA<6-&
$+.-/26:;:9765430+$
 "#$$###$#!
#(*+-/112566667776554431/.,+)'%#!
"+147:=@CEHJLLMLLKJGDB>;5.,.033/..-*'"
+2441143/)"!'.451000-&
!$%""%(+*%
&,/02577760&
$+01-+*))(%!
!%(,/234469;<>>=:50+'%'('!
%*,*%
%()+.00111220-(!
 +4;@@BCEFFEDDDEDDB@>;5.#
&-22/./121/,*+-//*
#,/-.2320,$
!,1/'
"######!
)39;9:<==<;;<==:5.%
'-001468:<=>><:5.%
%*+-2442/'
"&'(+-//.-+*('(&#
"%%%%&&'(*./.,*'#
 !#(,/246666799851*
""#%&&&&$!
!&.3799995,
""#$'+,+&
#'('&&$
"&*,--,&
"/57774/'
 "&-.*#
#%%&*-02344331-'
 &**,-/00///-)"
%)**(#
'-0039>BFHJKKIGE@:0"
!,38:;<?@@?=<;::976420-)#
!#$#
'.48;=@BCCA=6,!
%1<CGIJKJKNONJC:1("
!$')*,--,+(#
#.3456:?BEGHJLLJD:/"
%2:<:3+
####$'*,,,+*)($
)/348>CGIJKJJIHHFC=6-$
$(,06?CBDILNMJHHIJHD?;74/(
#).258:<>>>>>=;962,#
 #&*.2552,#
(09?B@90'
(./013798751-*+-25777531.*%
%+/37;?BDEC@<5.'"
"+148>ACEEB=2!
*9ADB:1%
 &+/1333442110,$
%-0236;?BDEEEEGHIIGFDA=80(
!%&$
#)-036873,!
#,;A?<88<=<81)
 %((),---.,(
%*-,-0369;<;7.!
%))))+-.../..-,+**('&%$"!
%.2123465/'
 !#$%%#
)069;=??>:3(
!%%%#""!
 ,7AHIE=1'
&18:<=>ABBA>7+"
!+56.#
"[phone]::;:9751*!
 '-21*#
)38=CJPSRLC:2-+**)&$!
#(+-,-///.,)#
!""!"%())(*.4<BEFDCCA?:40/-,*&#
"')&!
'154568=?>>=;:74210.,'
)3;>==<80*&%'&"
 )/1/.,+-.12321/-+**)('%$"!
!$%&'()*)*,/36984.'
%,01.)#
 .7:5'
$&()+.-)#
     "%)08;;3%
%.7;:9877788973-%
"/9?BCEJLLKLNPQQQRPLF>4'
!##!"$%#
 &+,'
%*-./00.)"
%'%$"!
(0446:=@CFHIE=1"
$-55.&
$*/36653/)
#%'*+++++,+*(%
 "&)+,-//.-,-/24554223579:9740-+(#
 $(,/137:=>>=;:8652.)"
 "'+-..//0///.,++**)'%$##"!
 #&)+.1344553/'
 &+/257:;=?@AAA@@>;6/(
!''*08BILPTVWXWWVURQPOOMKJHEB>:7543/*"
 &-258:<?@AAA@@=7."
'+,-/26899988889::876431.)#
 !%-38<?@@@@@A@=94,"
!,6<>BFIJKLMOPPPQPMJGDA?=;:8630-*(&$"
"&*-02568885/&
"'-378889;=?@@@@AA@?>=;973.'
#&(+--,)#
&29=AEHKMPRSSSRRPOKE=2(
!),+*('%"
$')*,,+(!
'05778;<<;;:72)"
$+/0038=@BBA?<71,%
$(&#
"$$%$$##"""!
 !""#&&&&%#
 "####$%%$#"""!
'+-.1561,&!
$'%$##$#!
!#&'((((('&#
!#&*,---+(#
(/110//-*)'%"
!"$&&%"
!#$$%$%&(*++)&!
#(++'
#0687532.'!
 %.47851,$
!',////000000/-+($
!#%&&$"
%+-..--,*)'%"
 $&$
"%''''&&#
 !"$')+,--*%
"$')+,-,+*&"
#'')-0222,"
$(*)*-/246662+
#))%##"
")/341.(%$##"
(1557:<<<<=@AA>93+$
 &((&%&&$"
 &,036:<=;6.#
#),,.1221/*"
!"#$'&#
 (2:>@?@CC@8,
"%(*,,,+**))&#
#+3893*
(+)#!#%&"
 &++(&%%$!
!$&(+++&
"&*+)%
#&)**+-/10///000/.-+*)'%"
"+0/1441-*-4<EJLLKIE>4*
!"$$!
 "##$'*,*#
  !"%*,,,+*)('''''&#
)3<CFFGGIKLLJE=1&
!(-./039=ACDDBA?;5,!
!"  "##"!
  !  !!"!
$,1368:<>@BBCBCDDC>7.$
"%'(((()))(((('&%$#"!
!(-1346860+'(.4;>=<:73+
!#$&(('#
 $&%'+07=CFGGFFFDA<6.$
"$&&#
$&&(,.,,,-.,'
%)(''(+++)&
"&)+--+'#
$##$&*,,-...,(
)6@DHKORTUTPLGA;3*#
!%),,,++*'!
 #&)+./00/.+'
 "$$$"
!&+//+!
$*+.355566568::95/(
%/2000378765577752-'
#'*.49<>=>@@@@@BDFIIGA9/$
!$'),/012111-'
'37::;=<768;>?>>=<963-%
!)27:>AA@=86432.)$
$/433469;;<<<:9998630,&
#,243/("
!$&&%$$$$$$$"
 #%'*+**++,.158:84.%
!''(*-2579;<?@@@?=;83*
 +23.,/38<=<:999:986420,'!
$*./-)$
%''(*-..-,,---+'"
##$&),-+*,,+($#$&+,*(&%#
&+-.--+'!
!#$%$$###!
"%&%!
)136:>CC@<7/$
 .422358:;;<93*
"%&&%#
!)/35785-%
'*))*,.///0.*%
%),/36:;;84.(#
 %-0/)
#')+,/379;<:50+'$!
%.3434688889;<<=<<;:962+#
(3;BEFHIKLLKKLMLLKKKJIGEC@>;6/'
#)-11.+(&'(*,-+(!
"-11.*%
"$&')+,,,++++*)'#
!*265678:;<95+
$.9?ABCEGHHIKLLKIHFDDB?;4*
"(-/24689;;94+!
!%$#
!(+,.1479:;<<:862-%
 +7>@A?@BDFHIIHHHGECB@><:8741,%
"(.22222441,#
!(+--.258:<===;;;:961*#
#*04678:>@@@@ACCA?>>==;97520-(!
&,*,06<??ADGIJIE</
%-37:70%
 ()$
'39::9:<>???@BCDCB@>;71*!
 #$$$%&((('%$!
.689:=BFHKNPPMH?1'
)3:==?CFGHHGFC?7-
!*.-+)'%!
.:AEEGKNPQPKA6)!
 !$+0464-"
#'-489:;=>=;976640(
#%''#
&3=CFJNPRRRQPLC8)
%%&()*)(%#
%'((&"
"&(()**(#
#'+,(
 %)+,-+'"
)1565579<=?>:61-+)&#!
"(+)(&$"
 #&),-..0233221/+&
$+021258983-'
  #(+-.//0/.+'"
!(()*-2689:<>??@???>=<:61*!
"%(*,/0111/,'
%,123211/+&"
$'*,-..../01110-)"
#&'*/.)!
'/8<91#
&/1+)*-01234443321110.-+(%!
!#%&(*+-/010/.,($
 !&.34567971+'%%#
%*-//1320,'$#"!
#*-0146899988751,$
!+5<@DGIKIC:,#
#,1026765568:;=?@?>;8642.)"
"'&(,169:983*
&,4;??>;70+&##
!(04555542-("
!$(,---,)$
'/346:<<:767:AEHHFB=6-'#
#,00,%
$+1688:<<;70+('())))+--+&
#/67778;=@BDEEDCCDEDB=5*
 !#%')**)'&%%&&&%$#"
 !!"$%%%%&&&%#"! !$'+.023210-*%"
#'+/1112356654210-)$
 %-241*!
,8ELNMIE@;633321/.-+(%#!
!#%&')*+,-,)#
 $%(++'%$####$&)-16750)#
"!!#&,.../0244454310-)#
#'',7@EE>:9862*).5=@=;877754210/,+*,023310000.*#
!&))***(%
'+,)'&$
!$'&#"!!
"$%$%&(()++,++*)(&$"
(/47:=>=<<>BEIKLKGA93-**)(&$"
"-44.(
&07=AFGFC>:778:;>BCC=1"
 *4:;7-
$,.../110//,&
!""!"#%&(**)'%$$%&&$
#',144543/'
 (,-../.+&
%)'&$$&(*,----,)#
%+15653/(!
$*------,*))('$
#,3535:>@BCDFHHHIGB<4*
!#$##"
#,5@GLNOMJFBADDD@:2*!
###!
'-0/-*'$#"!"#$&((&!
 .698:>>9.
#&((()+/37:;;9741,'#
-9>BDHORSSTUVUSRQQPPPQQQOJA4#
!$(+/5:==84200.,(#
 &('),+'#  !"
$&$$&%
(18>CGIJIJJIGEB@>>>=:60*$

'2;@DHIFB=;;<>?>=:61,&$$$#"
,4799:::741/-,,,+*(#
!%(*$
 ,9EPWXWUQNJFDCCDEHHGC<61-)%!
#3=BFIKJHDBA@?>=<;71-)(('%#!
#*28=?@@?=92/----+*(%
$*//+'$
&3;@BBBCDEEEDDA<4)
 '-241-(%"
!####!
"&))('"
`SFX!
    INFO
on openCard
  global WATASHI
  put WATASHI into cd fld "BALLONSWITCH"
end openCard
'>LST
chord1SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
field id 2SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
kaihou1SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
button id 4SCRP
on mouseUp
  put empty into cd picklist "chord1"
  put empty into cd picklist "kaihou1"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
field id 5SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
12TAIL
field id 6SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
field id 7SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
field id 8SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
field id 15SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
field id 16SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
KINFO
button id 75SCRP
on mouseUp
  put the loc of cd window into ABC
  set the TAB2X of cd "TABSCREEN1/2" to item 1 of ABC
  set the TAB2Y of cd "TABSCREEN1/2" to item 2 of ABC
  hide cd fld "breturn"
  dismiss
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "breturn"
end mouseEnter
on mouseLeave
  hide cd fld "breturn"
end mouseLeave
TINFO
chord2SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
UINFO
chord3SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
VINFO
chord4SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
WINFO
chord5SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
XINFO
chord6SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
YINFO
button id 89SCRP
on mouseUp
  put empty into cd picklist "chord2"
  put empty into cd picklist "kaihou2"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
ZINFO
button id 90SCRP
on mouseUp
  put empty into cd picklist "chord3"
  put empty into cd picklist "kaihou3"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
[INFO
button id 91SCRP
on mouseUp
  put empty into cd picklist "chord6"
  put empty into cd picklist "kaihou6"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
\INFO
button id 92SCRP
on mouseUp
  put empty into cd picklist "chord5"
  put empty into cd picklist "kaihou5"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
]INFO
button id 93SCRP
on mouseUp
  put empty into cd picklist "chord4"
  put empty into cd picklist "kaihou4"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
^INFO
kaihou2SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
_INFO
kaihou3SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
`INFO
kaihou6SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
aINFO
kaihou5SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
bINFO
kaihou4SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
iINFO
field id 105SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
12TAIL
jINFO
field id 106SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
12TAIL
kINFO
field id 107SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
12TAIL
lINFO
field id 108SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
12TAIL
mINFO
field id 109SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
12TAIL
nINFO
BALLONSWITCHdata
ONTAIL
oINFO
bopendata
pINFO
bmaindata
qINFO
bfletdata
rINFO
bcleardata
sINFO
bnamedata
tINFO
bnextdata
uINFO
breturndata
wwww$
wwww
wwww$
wwww$
wwww$
MAINSCREENSCRP
on ANWAY
  global SCONE
  set cursor to 1001
  hide cd fld "flat1"
  hide cd fld "flat2"
  hide cd fld "flat3"
  put char 1 of SCONE into cd fld "KEY"
  put char 2 of SCONE into cd fld "KEYs"
  put char 3 of SCONE into cd fld "KEYm"
  repeat with i=1 to 7
    put "7" into cd fld ( "sev" & i )
  end repeat
  -------
  global REALKEY
  put cd fld KEY into KEY
  put cd fld KEYm into KEYm
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALKEY
  if KEY is "D" then put 3 into REALKEY
  if KEY is "E" then put 5 into REALKEY
  if KEY is "F" then put 6 into REALKEY
  if KEY is "G" then put 8 into REALKEY
  if KEY is "A" then put 10 into REALKEY
  if KEY is "B" then put 12 into REALKEY
  if KEYs is "#" then put ( REALKEY + 1 ) into REALKEY
  if KEYs is "
" then put ( REALKEY - 1 ) into REALKEY
  if REALKEY is 0 then put 12 into REALKEY
  --------
  if cd fld "KEYm" is " "
  then
    put "
,m,m,
,  ,m,m" into MEJAMI
    put "1,3,5,6,8,10,12" into KEYHAI
    hide cd fld "flat1"
    hide cd fld "flat2"
    hide cd fld "flat3"
    hide cd fld "flatfive3"
    hide cd fld "flatfive1"
  else
    put "m,m,
,m, ,
, " into MEJAMI
    put "1,3,4,6,8,9,11" into KEYHAI
    show cd fld "flat1"
    show cd fld "flat2"
    show cd fld "flat3"
    hide cd fld "flatfive3"
    hide cd fld "flatfive1"
  end if
  repeat with i =1 to 7
    put item i of MEJAMI into cd fld ( i & "m" )
  end repeat
  --------
  global CHRs , CHRf , REAL , BGAG
  put KEYs into SHAFLA
  repeat with i = 1 to 7
    get item i of KEYHAI
    add ( REALKEY - 1 ) to it
    if it > 12 then put ( it - 12 ) into it
    put it into REAL
    NAMtoCHR
    put ( (cd fld "KEY" )& ( cd fld "KEYs")  & ( cd fld "KEYm" ) ) into BGAG
    if BGAG is "G  " or BGAG is "D  " or BGAG is "A  " or BGAG is "E  " or BGAG is "B  " or BGAG is "E m" or BGAG is "B m" or cd fld "KEYs" is "#"
    then
      put char 1 of CHRs into cd fld ("K" & i)
      put char 2 of CHRs into cd fld ("s" & i)
    else
      put char 1 of CHRf into cd fld ("K" & i)
      put char 2 of CHRf into cd fld ("s" & i)
    end if
  end repeat
  ------
  -- c
  if cd fld "KEY" is "C" and cd fld "KEYs" is "
  then
    put "C" into cd fld "K1"
    put "
" into cd fld "S1"
  end if
  if cd fld "KEYm" is "m"
  then
    show cd fld "flatfive1"
    hide cd fld "flatfive2"
  else
    show cd fld "flatfive2"
    hide cd fld "flatfive1"
  end if
  set cursor to 1072
end ANWAY
tab1x
tab1y
180card
I+BUT
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "b2nd"
  end if
end mouseEnter
on mouseLeave
  hide cd fld "b2nd"
  end mouseLeave
on mouseDown
  put "C" & return & "C# or D
" & return & "D" & return & "D# or E
" & return & "E" & return & "F" & return & "F# or G
" & return & "G" & return & "G# or A
" & return & "A" & return & "A# or B
" & return & "B or C
" & return into menu_list
  popupmenu menu_list at the mouseLoc
  if it is not 0 then
    put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
    put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
    put item ( it + 7 ) of HAIRETSUs into KAKUTEIs
    put item ( it + 7 ) of HAIRETSUf into KAKUTEIf
    if KAKUTEIs = KAKUTEIf
    then
      answer "
A"  & KAKUTEIs & "7
B" with "OK"
    else

      answer "
A"  & KAKUTEIs & " or " & KAKUTEIf  & "7
B" with "OK"
    end if
  end if
end mouseDown
-SCRP
on mouseDown
  global FLDNUM ----------
  global BOYON ---------
  put " -1" & return & " -2" & return & " -3" & return & " -4" & return & " -5" & return & " -6" & return & " -7" & return & " -8" & return & " -9" & return & " -10" & return & " -11" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is 0 then exit mouseDown
  put it into SEL
   -------------------------------------------
  ask "
H(1-24)" with 1
  if it >= 1 and it <= 24
  then
    put it into HAJIMEDA
    ask "
H(" & HAJIMEDA & "-24)" with 24
    if it >= HAJIMEDA and it <=24
    then
      put it into OWARIDA
    else
      answer "
B" & HAJIMEDA &"-24
      exit mouseDown
    end if
  else
    answer "
B1-24
    exit mouseDown
  end if
  -------------------------------------------
  set cursor to 1001 -------- *******
  put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
  put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
  put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B " into HAIRETSUsb ---
  put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into HAIRETSUfb --
  ----
  global DOOMS
  put cd fld "KEY" & cd fld "KEYs" into SUKIYAKI
  repeat with z=1 to 12
    if item z of HAIRETSUsb is SUKIYAKI then put z into KAZUs
    if item z of HAIRETSUfb is SUKIYAKI then put z into KAZUf
  end repeat
  if KAZUs is empty
  then
    subtract SEL from KAZUf
    add 12 to KAZUf
    put item KAZUf of HAIRETSUfb into DOOMS
  else
    subtract SEL from KAZUs
    add 12 to KAZUs
    put item KAZUs of HAIRETSUsb into DOOMS
  end if
  put DOOMS into cd fld "SOUSIN"
  DOOM
  --------------------------------
  set cursor to 1002 --------**********
  repeat with  i=HAJIMEDA to OWARIDA
    put 0 into REALs
    put 0 into REALf
    put 0 into BBBB
    put char 1 to 2 of cd fld ( "fff" & i ) into ROTT
    if ROTT is not empty
    then
      if char 2 of ROTT is not "#" and char 2 of ROTT is not "
      then
        put empty into char 2 of ROTT
        put 1 into BBBB
      end if
      repeat with j=1 to 12
        if item j of HAIRETSUs is ROTT then put j into REALs
        if item j of HAIRETSUf is ROTT then put j into REALf
      end repeat
      if BBBB is 1
      then
        put cd fld "KEY" into K
        put cd fld "KEYs" into S
        put cd fld "KEYm" into M
        ------char 2 of cd fld ("ggg" & i ) is "#" or
        if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))

        then
          put (REALs - SEL +12) into REALs
          put item REALs of HAIRETSUs into KETTEI
          put KETTEI into char 1 of cd fld ( "fff" & i)
          put item REALs of HAIRETSUsb into BOYON ----
          put i into FLDNUM -------------------
          HARETSU -------------------------
        else
          put (REALf - SEL+12) into REALf
          put item REALf of HAIRETSUf into KETTEI
          put KETTEI into char 1 of cd fld ( "fff" & i)
          put item REALf of HAIRETSUfb into BOYON ----
          put i into FLDNUM -------------------
          HARETSU -------------------------
        end if
      else
        if REALs is 0
        then
          put (REALf - SEL+12) into REALf
          put item REALf of HAIRETSUf into KETTEI
          put KETTEI into char 1 to 2 of cd fld ( "fff" & i)
          put item REALf of HAIRETSUfb into BOYON ----
          put i into FLDNUM -------------------
          HARETSU -------------------------
        end if
        if REALf is 0
        then
          put (REALs - SEL+12) into REALs
          put item REALs of HAIRETSUs into KETTEI
          put KETTEI into char 1 to 2 of cd fld ( "fff" & i)
          put item REALs of HAIRETSUsb into BOYON ----
          put i into FLDNUM -------------------
          HARETSU -------------------------
        end if
      end if

    end if
  end repeat
  set cursor to 1072 ------*******
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON18"
  end if
end mouseEnter
on mouseLeave
  hide cd fld "BALLON18"
end mouseLeave
genelaterSCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "bgenelater"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "bgenelater"
  end mouseLeave
button id 164TAIL
SINFO
#CARD
group id 83data
,TAIL
TINFO
button id 84TAIL
GINFO
scopupSCRP
on mouseEnter
  hide me
end mouseEnter
OTAIL
HINFO
HYOJISCRP
on mouseUp
  show group scopup
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON2"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON2"
end mouseLeave
KEYSCRP
on mouseDown
  put "C" & return & "D" & return & "E" & return & "F" & return & "G" &return & "A" & return & "B" & return into menu_list
  popupMenu  menu_list at the mouseLoc
  if it is not 0 then
    set cursor to 1001
    hide cd fld "flat1"
    hide cd fld "flat2"
    hide cd fld "flat3"
    put line it of menu_list into me
    repeat with i=1 to 7
      put "7" into cd fld ( "sev" & i )
    end repeat
    ----B#,,F
    if  cd fld KEY is "B" and cd fld KEYs is "#"
    then
      put "C" into cd fld "KEY"
      put " " into cd fld "KEYs"
    end if
    if  cd fld KEY is "E" and cd fld KEYs is "#"
    then
      put "F" into cd fld "KEY"
      put " " into cd fld "KEYs"
    end if
    if  cd fld KEY is "F" and cd fld KEYs is "
    then
      put "E" into cd fld "KEY"
      put " " into cd fld "KEYs"
    end if
    -------
    global REALKEY
    put cd fld KEY into KEY
    put cd fld KEYm into KEYm
    put cd fld KEYs into KEYs
    if KEY is "C" then put 1 into REALKEY
    if KEY is "D" then put 3 into REALKEY
    if KEY is "E" then put 5 into REALKEY
    if KEY is "F" then put 6 into REALKEY
    if KEY is "G" then put 8 into REALKEY
    if KEY is "A" then put 10 into REALKEY
    if KEY is "B" then put 12 into REALKEY
    if KEYs is "#" then put ( REALKEY + 1 ) into REALKEY
    if KEYs is "
" then put ( REALKEY - 1 ) into REALKEY
    if REALKEY is 0 then put 12 into REALKEY
    --------
    if cd fld "KEYm" is " "
    then
      put "
,m,m,
,  ,m,m" into MEJAMI
      put "1,3,5,6,8,10,12" into KEYHAI
      hide cd fld "flat1"
      hide cd fld "flat2"
      hide cd fld "flat3"
      hide cd fld "flatfive3"
      hide cd fld "flatfive1"
    else
      put "m,m,
,m, ,
, " into MEJAMI
      put "1,3,4,6,8,9,11" into KEYHAI
      show cd fld "flat1"
      show cd fld "flat2"
      show cd fld "flat3"
      hide cd fld "flatfive3"
      hide cd fld "flatfive1"
    end if
    repeat with i =1 to 7
      put item i of MEJAMI into cd fld ( i & "m" )
    end repeat
    --------
    global CHRs , CHRf , REAL , BGAG
    put KEYs into SHAFLA
    repeat with i = 1 to 7
      get item i of KEYHAI
      add ( REALKEY - 1 ) to it
      if it > 12 then put ( it - 12 ) into it
      put it into REAL
      NAMtoCHR
      put ( (cd fld "KEY" )& ( cd fld "KEYs")  & ( cd fld "KEYm" ) ) into BGAG
      if BGAG is "G  " or BGAG is "D  " or BGAG is "A  " or BGAG is "E  " or BGAG is "B  " or BGAG is "E m" or BGAG is "B m" or cd fld "KEYs" is "#"

      then
        put char 1 of CHRs into cd fld ("K" & i)
        put char 2 of CHRs into cd fld ("s" & i)
      else
        put char 1 of CHRf into cd fld ("K" & i)
        put char 2 of CHRf into cd fld ("s" & i)
      end if
    end repeat
    ------
    -- c
    if cd fld "KEY" is "C" and cd fld "KEYs" is "
    then
      put "C" into cd fld "K1"
      put "
" into cd fld "S1"
    end if
    --
    if cd fld "KEYm" is "m"
    then
      show cd fld "flatfive1"
      hide cd fld "flatfive2"
    else
      show cd fld "flatfive2"
      hide cd fld "flatfive1"
    end if
    ---------
    if BGAG is "C
 " or BGAG is "A
m" then put cd bmp "flat7" into cd bmp "HYOJI"
    if BGAG is "G
 " or BGAG is "E
m" then put cd bmp "flat6" into cd bmp "HYOJI"
    if BGAG is "D
 " or BGAG is "B
m" then put cd bmp "flat5" into cd bmp "HYOJI"
    if BGAG is "A
 " or BGAG is "F m" then put cd bmp "flat4" into cd bmp "HYOJI"
    if BGAG is "E
 " or BGAG is "C m" then put cd bmp "flat3" into cd bmp "HYOJI"
    if BGAG is "B
 " or BGAG is "G m" then put cd bmp "flat2" into cd bmp "HYOJI"
    if BGAG is "F  " or BGAG is "D m" then put cd bmp "flat1" into cd bmp "HYOJI"
    if BGAG is "C  " or BGAG is "A m" then put cd bmp "none" into cd bmp "HYOJI"
    if BGAG is "G  " or BGAG is "E m" then put cd bmp "sharp1" into cd bmp "HYOJI"
    if BGAG is "D  " or BGAG is "B m" then put cd bmp "sharp2" into cd bmp "HYOJI"
    if BGAG is "A  " or BGAG is "F#m" then put cd bmp "sharp3" into cd bmp "HYOJI"
    if BGAG is "E  " or BGAG is "C#m" then put cd bmp "sharp4" into cd bmp "HYOJI"
    if BGAG is "B  " or BGAG is "G#m" then put cd bmp "sharp5" into cd bmp "HYOJI"
    if BGAG is "F# " or BGAG is "D#m" then put cd bmp "sharp6" into cd bmp "HYOJI"
    if BGAG is "C# " or BGAG is "A#m" then put cd bmp "sharp7" into cd bmp "HYOJI"
  end if---------
  set cursor to 1072
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON1"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON1"
  end mouseLeave
CTAIL
KEYsSCRP
on mouseDown
  put " " & return & "#" & return & "
" & return into menu_list
  popupMenu  menu_list at the mouseLoc
  if it is not 0 then
    set cursor to 1001
    hide cd fld "flat1"
    hide cd fld "flat2"
    hide cd fld "flat3"
    put line it of menu_list into me
    repeat with i=1 to 7
      put "7" into cd fld ( "sev" & i )
    end repeat
    ----B#,,F
    if  cd fld KEY is "B" and cd fld KEYs is "#"
    then
      put "C" into cd fld "KEY"
      put " " into cd fld "KEYs"
    end if
    if  cd fld KEY is "E" and cd fld KEYs is "#"
    then
      put "F" into cd fld "KEY"
      put " " into cd fld "KEYs"
    end if
    if  cd fld KEY is "F" and cd fld KEYs is "
    then
      put "E" into cd fld "KEY"
      put " " into cd fld "KEYs"
    end if
    -------
    global REALKEY
    put cd fld KEY into KEY
    put cd fld KEYm into KEYm
    put cd fld KEYs into KEYs
    if KEY is "C" then put 1 into REALKEY
    if KEY is "D" then put 3 into REALKEY
    if KEY is "E" then put 5 into REALKEY
    if KEY is "F" then put 6 into REALKEY
    if KEY is "G" then put 8 into REALKEY
    if KEY is "A" then put 10 into REALKEY
    if KEY is "B" then put 12 into REALKEY
    if KEYs is "#" then put ( REALKEY + 1 ) into REALKEY
    if KEYs is "
" then put ( REALKEY - 1 ) into REALKEY
    if REALKEY is 0 then put 12 into REALKEY
    --------
    if cd fld "KEYm" is " "
    then
      put "
 ,m,m,
, ,m,m" into MEJAMI
      put "1,3,5,6,8,10,12" into KEYHAI
      hide cd fld "flat1"
      hide cd fld "flat2"
      hide cd fld "flat3"
      hide cd fld "flatfive3"
      hide cd fld "flatfive1"
    else
      put "m,m,
,m, ,
, " into MEJAMI
      put "1,3,4,6,8,9,11" into KEYHAI
      show cd fld "flat1"
      show cd fld "flat2"
      show cd fld "flat3"
      hide cd fld "flatfive3"
      hide cd fld "flatfive1"
    end if
    repeat with i =1 to 7
      put item i of MEJAMI into cd fld ( i & "m" )
    end repeat
    --------
    global CHRs , CHRf , REAL , BGAG
    put KEYs into SHAFLA
    repeat with i = 1 to 7
      get item i of KEYHAI
      add ( REALKEY - 1 ) to it
      if it > 12 then put ( it - 12 ) into it
      put it into REAL
      NAMtoCHR
      put ( (cd fld "KEY" )& ( cd fld "KEYs")  & ( cd fld "KEYm" ) ) into BGAG
      if BGAG is "G  " or BGAG is "D  " or BGAG is "A  " or BGAG is "E  " or BGAG is "B  " or BGAG is "E m" or BGAG is "B m" or cd fld "KEYs" is "#"

      then
        put char 1 of CHRs into cd fld ("K" & i)
        put char 2 of CHRs into cd fld ("s" & i)
      else
        put char 1 of CHRf into cd fld ("K" & i)
        put char 2 of CHRf into cd fld ("s" & i)
      end if
    end repeat
    ------
    -- c
    if cd fld "KEY" is "C" and cd fld "KEYs" is "
    then
      put "C" into cd fld "K1"
      put "
" into cd fld "S1"
    end if
    --
    if cd fld "KEYm" is "m"
    then
      show cd fld "flatfive1"
      hide cd fld "flatfive2"
    else
      show cd fld "flatfive2"
      hide cd fld "flatfive1"
    end if
    ---------
    if BGAG is "C
 " or BGAG is "A
m" then put cd bmp "flat7" into cd bmp "HYOJI"
    if BGAG is "G
 " or BGAG is "E
m" then put cd bmp "flat6" into cd bmp "HYOJI"
    if BGAG is "D
 " or BGAG is "B
m" then put cd bmp "flat5" into cd bmp "HYOJI"
    if BGAG is "A
 " or BGAG is "F m" then put cd bmp "flat4" into cd bmp "HYOJI"
    if BGAG is "E
 " or BGAG is "C m" then put cd bmp "flat3" into cd bmp "HYOJI"
    if BGAG is "B
 " or BGAG is "G m" then put cd bmp "flat2" into cd bmp "HYOJI"
    if BGAG is "F  " or BGAG is "D m" then put cd bmp "flat1" into cd bmp "HYOJI"
    if BGAG is "C  " or BGAG is "A m" then put cd bmp "none" into cd bmp "HYOJI"
    if BGAG is "G  " or BGAG is "E m" then put cd bmp "sharp1" into cd bmp "HYOJI"
    if BGAG is "D  " or BGAG is "B m" then put cd bmp "sharp2" into cd bmp "HYOJI"
    if BGAG is "A  " or BGAG is "F#m" then put cd bmp "sharp3" into cd bmp "HYOJI"
    if BGAG is "E  " or BGAG is "C#m" then put cd bmp "sharp4" into cd bmp "HYOJI"
    if BGAG is "B  " or BGAG is "G#m" then put cd bmp "sharp5" into cd bmp "HYOJI"
    if BGAG is "F# " or BGAG is "D#m" then put cd bmp "sharp6" into cd bmp "HYOJI"
    if BGAG is "C# " or BGAG is "A#m" then put cd bmp "sharp7" into cd bmp "HYOJI"
  end if---------
  set cursor to 1072
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON1"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON1"
end mouseLeave
 TAIL
KEYmSCRP
on mouseDown
  put " " & return & "m" & return into menu_list
  popupMenu  menu_list at the mouseLoc
  if it is not 0 then
    set cursor to 1001
    hide cd fld "flat1"
    hide cd fld "flat2"
    hide cd fld "flat3"
    put line it of menu_list into me
    repeat with i=1 to 7
      put "7" into cd fld ( "sev" & i )
    end repeat
    ----B#,,F
    if  cd fld KEY is "B" and cd fld KEYs is "#"
    then
      put "C" into cd fld "KEY"
      put " " into cd fld "KEYs"
    end if
    if  cd fld KEY is "E" and cd fld KEYs is "#"
    then
      put "F" into cd fld "KEY"
      put " " into cd fld "KEYs"
    end if
    if  cd fld KEY is "F" and cd fld KEYs is "
    then
      put "E" into cd fld "KEY"
      put " " into cd fld "KEYs"
    end if
    -------
    global REALKEY
    put cd fld KEY into KEY
    put cd fld KEYm into KEYm
    put cd fld KEYs into KEYs
    if KEY is "C" then put 1 into REALKEY
    if KEY is "D" then put 3 into REALKEY
    if KEY is "E" then put 5 into REALKEY
    if KEY is "F" then put 6 into REALKEY
    if KEY is "G" then put 8 into REALKEY
    if KEY is "A" then put 10 into REALKEY
    if KEY is "B" then put 12 into REALKEY
    if KEYs is "#" then put ( REALKEY + 1 ) into REALKEY
    if KEYs is "
" then put ( REALKEY - 1 ) into REALKEY
    if REALKEY is 0 then put 12 into REALKEY
    --------
    if cd fld "KEYm" is " "
    then
      put "
,m,m,
,  ,m,m" into MEJAMI
      put "1,3,5,6,8,10,12" into KEYHAI
      hide cd fld "flat1"
      hide cd fld "flat2"
      hide cd fld "flat3"
      hide cd fld "flatfive3"
      hide cd fld "flatfive1"
    else
      put "m,m,
,m, ,
, " into MEJAMI
      put "1,3,4,6,8,9,11" into KEYHAI
      show cd fld "flat1"
      show cd fld "flat2"
      show cd fld "flat3"
      hide cd fld "flatfive3"
      hide cd fld "flatfive1"
    end if
    repeat with i =1 to 7
      put item i of MEJAMI into cd fld ( i & "m" )
    end repeat
    --------
    global CHRs , CHRf , REAL , BGAG
    put KEYs into SHAFLA
    repeat with i = 1 to 7
      get item i of KEYHAI
      add ( REALKEY - 1 ) to it
      if it > 12 then put ( it - 12 ) into it
      put it into REAL
      NAMtoCHR
      put ( (cd fld "KEY" )& ( cd fld "KEYs")  & ( cd fld "KEYm" ) ) into BGAG
      if BGAG is "G  " or BGAG is "D  " or BGAG is "A  " or BGAG is "E  " or BGAG is "B  " or BGAG is "E m" or BGAG is "B m" or cd fld "KEYs" is "#"

      then
        put char 1 of CHRs into cd fld ("K" & i)
        put char 2 of CHRs into cd fld ("s" & i)
      else
        put char 1 of CHRf into cd fld ("K" & i)
        put char 2 of CHRf into cd fld ("s" & i)
      end if
    end repeat
    ------
    -- c
    if cd fld "KEY" is "C" and cd fld "KEYs" is "
    then
      put "C" into cd fld "K1"
      put "
" into cd fld "S1"
    end if
    --
    if cd fld "KEYm" is "m"
    then
      show cd fld "flatfive1"
      hide cd fld "flatfive2"
    else
      show cd fld "flatfive2"
      hide cd fld "flatfive1"
    end if
    ---------
    if BGAG is "C
 " or BGAG is "A
m" then put cd bmp "flat7" into cd bmp "HYOJI"
    if BGAG is "G
 " or BGAG is "E
m" then put cd bmp "flat6" into cd bmp "HYOJI"
    if BGAG is "D
 " or BGAG is "B
m" then put cd bmp "flat5" into cd bmp "HYOJI"
    if BGAG is "A
 " or BGAG is "F m" then put cd bmp "flat4" into cd bmp "HYOJI"
    if BGAG is "E
 " or BGAG is "C m" then put cd bmp "flat3" into cd bmp "HYOJI"
    if BGAG is "B
 " or BGAG is "G m" then put cd bmp "flat2" into cd bmp "HYOJI"
    if BGAG is "F  " or BGAG is "D m" then put cd bmp "flat1" into cd bmp "HYOJI"
    if BGAG is "C  " or BGAG is "A m" then put cd bmp "none" into cd bmp "HYOJI"
    if BGAG is "G  " or BGAG is "E m" then put cd bmp "sharp1" into cd bmp "HYOJI"
    if BGAG is "D  " or BGAG is "B m" then put cd bmp "sharp2" into cd bmp "HYOJI"
    if BGAG is "A  " or BGAG is "F#m" then put cd bmp "sharp3" into cd bmp "HYOJI"
    if BGAG is "E  " or BGAG is "C#m" then put cd bmp "sharp4" into cd bmp "HYOJI"
    if BGAG is "B  " or BGAG is "G#m" then put cd bmp "sharp5" into cd bmp "HYOJI"
    if BGAG is "F# " or BGAG is "D#m" then put cd bmp "sharp6" into cd bmp "HYOJI"
    if BGAG is "C# " or BGAG is "A#m" then put cd bmp "sharp7" into cd bmp "HYOJI"
  end if---------
  set cursor to 1072
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON1"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON1"
end mouseLeave
 TAIL
K1SCRP
on mouseDown
  if cd fld "KEYm" is " "
  then
    put the char 2 of short name of me into NUMB
    put "
maj7" & return & "
maj" & return & "
6" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put "
" into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put " " into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if
      if it is 3
      then
        put " " into cd fld (NUMB & "m" )
        put "6" into cd fld ("sev" & NUMB )
      end if

    end if
  end if
   if cd fld "KEYm" is "m"
  then
    put the char 2 of short name of me into NUMB
    put "
m7" & return & "
m" & return & "
7" & return & "
m6" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put "m" into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put "m" into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if
      if it is 3
      then
        put "m
" into cd fld (NUMB & "m" )
        put "7" into cd fld ("sev" & NUMB )
      end if
      if it is 4
      then
        put "m" into cd fld (NUMB & "m" )
        put "6" into cd fld ("sev" & NUMB )
      end if
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON"
end mouseLeave
CTAIL
s1data
 TAIL
1mdata
K2SCRP
on mouseDown
  if cd fld "KEYm" is " "
  then
    put the char 2 of short name of me into NUMB
    put "
min7" & return & "
m" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put "m" into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put "m" into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if


    end if
  end if
    if cd fld "KEYm" is "m"
  then
    put the char 2 of short name of me into NUMB
    put "
m7-5" & return & "
m-5" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put "m" into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put "m" into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if

    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON"
end mouseLeave
DTAIL
s2data
 TAIL
2mdata
mTAIL
K3SCRP
on mouseDown
  if cd fld "KEYm" is " "
  then
    put the char 2 of short name of me into NUMB
    put "
min7" & return & "
m" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put "m" into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put "m" into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if


    end if
  end if
    if cd fld "KEYm" is "m"
  then
    put the char 2 of short name of me into NUMB
    put "
7" & return & "
maj" & return & "
6" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put "
" into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put " " into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if
      if it is 3
      then
        put " " into cd fld (NUMB & "m" )
        put "6" into cd fld ("sev" & NUMB )
      end if

    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON"
end mouseLeave
ETAIL
s3data
 TAIL
3mdata
mTAIL
 INFO
K4SCRP
on mouseDown
  if cd fld "KEYm" is " "
  then
    put the char 2 of short name of me into NUMB
    put "
maj7" & return & "
maj" & return & "
6" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put "
" into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put " " into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if
      if it is 3
      then
        put " " into cd fld (NUMB & "m" )
        put "6" into cd fld ("sev" & NUMB )
      end if

    end if
  end if
    if cd fld "KEYm" is "m"
  then
    put the char 2 of short name of me into NUMB
    put "
m7" & return & "
m" & return & "
m6" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put "m" into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put "m" into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if
      if it is 3
      then
        put "m" into cd fld (NUMB & "m" )
        put "6" into cd fld ("sev" & NUMB )
      end if

    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON"
end mouseLeave
FTAIL
!INFO
s4data
 TAIL
"INFO
4mdata
#INFO
K5SCRP
on mouseDown
  if cd fld "KEYm" is " "
  then
    put the char 2 of short name of me into NUMB
    put "
7" & return & "
maj" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put " " into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put " " into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if


    end if
  end if
    if cd fld "KEYm" is "m"
  then
    put the char 2 of short name of me into NUMB
    put "
7" & return & "
" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put " " into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put " " into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if

    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON"
end mouseLeave
GTAIL
$INFO
s5data
 TAIL
%INFO
5mdata
  TAIL
&INFO
K6SCRP
on mouseDown
  if cd fld "KEYm" is " "
  then
    put the char 2 of short name of me into NUMB
    put "
min7" & return & "
m" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put "m" into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put "m" into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if


    end if
  end if
  ----
  if cd fld "KEYm" is "m"
  then
    put the char 2 of short name of me into NUMB
    put "
7" & return & "
maj" & return & "
6" & return & "
#m-5" & return & return & "
#m7-5" into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        hide cd fld "flatfive3"
        show cd fld "flat2"
        ---- put "
" into cd fld (NUMB & "m" )----
        put "7" into cd fld ("sev" & NUMB )
        if cd fld ( NUMB & "m" ) is "m"
        then

          put me into MYROOT
          put cd fld ( "s" & ( char 2 of short name of me) ) into MYSHARP
          if MYSHARP is " " then put empty into MYSHARP
          put ( MYROOT & MYSHARP ) into MYNAME
          put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
          put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
          put cd fld "KEY" into K
          put cd fld "KEYs" into S
          put cd fld "KEYm" into M
          if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))
          then
            repeat with i=1 to 12
              if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
              --if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
            end repeat
            PUT "SHARP" into FLAGSF
            subtract 1 from KAKUTEIs
            add 12 to KAKUTEIs
            put item KAKUTEIs of HAIRETSUs into VVVV
          else
            repeat with i=1 to 12
              --if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
              if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
            end repeat
            PUT "FLAT" into FLAGSF
            subtract 1 from KAKUTEIf
            add 12 to KAKUTEIf
            put item KAKUTEIf of HAIRETSUf into VVVV
          end if
          put char 1 of VVVV into me
          put char 2 of VVVV into cd fld ("s" & ( char 2 of short name of me ) )
          put "
" into cd fld (NUMB & "m" ) ------
        else
          put "
" into cd fld (NUMB & "m" )
        end if
      end if
    end if
    if it is 2
    then
      hide cd fld "flatfive3"
      show cd fld "flat2"
      ---- put " " into cd fld (NUMB & "m" )----
      put " " into cd fld ("sev" & NUMB )
      if cd fld ( NUMB & "m" ) is "m"
      then

        put me into MYROOT
        put cd fld ( "s" & ( char 2 of short name of me) ) into MYSHARP
        if MYSHARP is " " then put empty into MYSHARP
        put ( MYROOT & MYSHARP ) into MYNAME
        put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
        put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
        put cd fld "KEY" into K
        put cd fld "KEYs" into S
        put cd fld "KEYm" into M
        if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))
        then
          repeat with i=1 to 12
            if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            --if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "SHARP" into FLAGSF
          subtract 1 from KAKUTEIs
          add 12 to KAKUTEIs
          put item KAKUTEIs of HAIRETSUs into VVVV
        else
          repeat with i=1 to 12
            --if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "FLAT" into FLAGSF
          subtract 1 from KAKUTEIf
          add 12 to KAKUTEIf
          put item KAKUTEIf of HAIRETSUf into VVVV
        end if
        put char 1 of VVVV into me
        put char 2 of VVVV into cd fld ("s" & ( char 2 of short name of me ) )
        put " " into cd fld (NUMB & "m" ) ------
      else
        put " " into cd fld (NUMB & "m" )
      end if

    end if
    -----end if
    if it is 3
    then
      hide cd fld "flatfive3"
      show cd fld "flat2"
      ---- put " " into cd fld (NUMB & "m" )----
      put "6" into cd fld ("sev" & NUMB )
      if cd fld ( NUMB & "m" ) is "m"
      then

        put me into MYROOT
        put cd fld ( "s" & ( char 2 of short name of me) ) into MYSHARP
        if MYSHARP is " " then put empty into MYSHARP
        put ( MYROOT & MYSHARP ) into MYNAME
        put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
        put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
        put cd fld "KEY" into K
        put cd fld "KEYs" into S
        put cd fld "KEYm" into M
        if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))
        then
          repeat with i=1 to 12
            if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            --if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "SHARP" into FLAGSF
          subtract 1 from KAKUTEIs
          add 12 to KAKUTEIs
          put item KAKUTEIs of HAIRETSUs into VVVV
        else
          repeat with i=1 to 12
            --if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "FLAT" into FLAGSF
          subtract 1 from KAKUTEIf
          add 12 to KAKUTEIf
          put item KAKUTEIf of HAIRETSUf into VVVV
        end if
        put char 1 of VVVV into me
        put char 2 of VVVV into cd fld ("s" & ( char 2 of short name of me ) )
        put " " into cd fld (NUMB & "m" ) ------
      else
        put " " into cd fld (NUMB & "m" )
      end if
    end if
    if it is 4
    then
      show cd fld "flatfive3"
      hide cd fld "flat2"
      ---put "m" into cd fld (NUMB & "m" )
      ---put " " into cd fld ("sev" & NUMB )
      if cd fld ( NUMB & "m" ) is not "m" ------123123
      then
        put me into MYROOT
        put cd fld ( "s" & ( char 2 of short name of me) ) into MYSHARP
        if MYSHARP is " " then put empty into MYSHARP
        put ( MYROOT & MYSHARP ) into MYNAME
        put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
        put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
        put cd fld "KEY" into K
        put cd fld "KEYs" into S
        put cd fld "KEYm" into M
        if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))
        then
          repeat with i=1 to 12
            if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            --if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "SHARP" into FLAGSF
          add 1 to KAKUTEIs
          put item KAKUTEIs of HAIRETSUs into VVVV
        else
          repeat with i=1 to 12
            --if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "FLAT" into FLAGSF
          add 1 to KAKUTEIf
          put item KAKUTEIf of HAIRETSUf into VVVV
        end if
        put char 1 of VVVV into me
        put char 2 of VVVV into cd fld ("s" & ( char 2 of short name of me ) )
        put "m" into cd fld (NUMB & "m" ) -----
        put " " into cd fld ("sev" & NUMB ) -----
      else
        put "m" into cd fld (NUMB & "m" ) -----
        put " " into cd fld ("sev" & NUMB ) -----
      end if
    end if
    if it is 5
    then
      show cd fld "flatfive3"
      hide cd fld "flat2"
      ----put "m" into cd fld (NUMB & "m" )
      ----put "7" into cd fld ("sev" & NUMB )
      if cd fld ( NUMB & "m" ) is not "m" ---123123
      then
        put me into MYROOT
        put cd fld ( "s" & ( char 2 of short name of me) ) into MYSHARP
        if MYSHARP is " " then put empty into MYSHARP
        put ( MYROOT & MYSHARP ) into MYNAME
        put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
        put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
        put cd fld "KEY" into K
        put cd fld "KEYs" into S
        put cd fld "KEYm" into M
        if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))
        then
          repeat with i=1 to 12
            if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            --if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "SHARP" into FLAGSF
          add 1 to KAKUTEIs
          put item KAKUTEIs of HAIRETSUs into VVVV
        else
          repeat with i=1 to 12
            --if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "FLAT" into FLAGSF
          add 1 to KAKUTEIf
          put item KAKUTEIf of HAIRETSUf into VVVV
        end if
        put char 1 of VVVV into me
        put char 2 of VVVV into cd fld ("s" & ( char 2 of short name of me ) )
        put "m" into cd fld (NUMB & "m" )
        put "7" into cd fld ("sev" & NUMB )
      else
        put "m" into cd fld (NUMB & "m" )
        put "7" into cd fld ("sev" & NUMB )
      end if
    end if
  end if ----123123
  ----end if -----
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON"
end mouseLeave
ATAIL
(INFO
s6data
 TAIL
)INFO
6mdata
mTAIL
*INFO
K7SCRP
on mouseDown
  if cd fld "KEYm" is " "
  then
    put the char 2 of short name of me into NUMB
    put "
min7-5" & return & "
m-5" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        put "m" into cd fld ( NUMB & "m")
        put "7" into cd fld ( "sev" & NUMB )
      end if
      if it is 2
      then
        put "m" into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if


    end if
  end if
  ----
  if cd fld "KEYm" is "m"
  then
    put the char 2 of short name of me into NUMB
    put "
7" & return & "
maj" & return & "
#m-5" & return & "
#dim" & return into menu_list
    popupMenu  menu_list at the mouseLoc
    if it is not 0 then
      if it is 1
      then
        hide cd fld "flatfive2"
        show cd fld "flat3"
        ---- put " " into cd fld (NUMB & "m" )----
        put "7" into cd fld ("sev" & NUMB )
        if cd fld ( NUMB & "m" ) is "m" or cd fld ( NUMB & "m" ) is "dim"
        then

          put me into MYROOT
          put cd fld ( "s" & ( char 2 of short name of me) ) into MYSHARP
          if MYSHARP is " " then put empty into MYSHARP
          put ( MYROOT & MYSHARP ) into MYNAME
          put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
          put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
          put cd fld "KEY" into K
          put cd fld "KEYs" into S
          put cd fld "KEYm" into M
          if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))
          then
            repeat with i=1 to 12
              if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
              --if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
            end repeat
            PUT "SHARP" into FLAGSF
            subtract 1 from KAKUTEIs
            add 12 to KAKUTEIs
            put item KAKUTEIs of HAIRETSUs into VVVV
          else
            repeat with i=1 to 12
              --if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
              if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
            end repeat
            PUT "FLAT" into FLAGSF
            subtract 1 from KAKUTEIf
            add 12 to KAKUTEIf
            put item KAKUTEIf of HAIRETSUf into VVVV
          end if
          put char 1 of VVVV into me
          put char 2 of VVVV into cd fld ("s" & ( char 2 of short name of me ) )
          put " " into cd fld (NUMB & "m" ) ------
        else
          put " " into cd fld (NUMB & "m" )
        end if
      end if
    end if
    if it is 2
    then
      hide cd fld "flatfive2"
      show cd fld "flat3"
      ---- put " " into cd fld (NUMB & "m" )----
      put " " into cd fld ("sev" & NUMB )
      if cd fld ( NUMB & "m" ) is "m" or cd fld ( NUMB & "m" ) is "dim"
      then

        put me into MYROOT
        put cd fld ( "s" & ( char 2 of short name of me) ) into MYSHARP
        if MYSHARP is " " then put empty into MYSHARP
        put ( MYROOT & MYSHARP ) into MYNAME
        put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
        put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
        put cd fld "KEY" into K
        put cd fld "KEYs" into S
        put cd fld "KEYm" into M
        if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))
        then
          repeat with i=1 to 12
            if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            --if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "SHARP" into FLAGSF
          subtract 1 from KAKUTEIs
          add 12 to KAKUTEIs
          put item KAKUTEIs of HAIRETSUs into VVVV
        else
          repeat with i=1 to 12
            --if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "FLAT" into FLAGSF
          subtract 1 from KAKUTEIf
          add 12 to KAKUTEIf
          put item KAKUTEIf of HAIRETSUf into VVVV
        end if
        put char 1 of VVVV into me
        put char 2 of VVVV into cd fld ("s" & ( char 2 of short name of me ) )
        put " " into cd fld (NUMB & "m" ) ------
      else
        put " " into cd fld (NUMB & "m" )
      end if

    end if
    -----end if
    if it is 3
    then
      show cd fld "flatfive2"
      hide cd fld "flat3"
      ----put "m" into cd fld (NUMB & "m" )
      ----put " " into cd fld ("sev" & NUMB )
      if cd fld ( NUMB & "m" ) is not "m" and cd fld ( NUMB & "m" ) is not "dim" ---123123
      then
        put me into MYROOT
        put cd fld ( "s" & ( char 2 of short name of me) ) into MYSHARP
        if MYSHARP is " " then put empty into MYSHARP
        put ( MYROOT & MYSHARP ) into MYNAME
        put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
        put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
        put cd fld "KEY" into K
        put cd fld "KEYs" into S
        put cd fld "KEYm" into M
        if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))
        then
          repeat with i=1 to 12
            if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            --if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "SHARP" into FLAGSF
          add 1 to KAKUTEIs
          put item KAKUTEIs of HAIRETSUs into VVVV
        else
          repeat with i=1 to 12
            --if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "FLAT" into FLAGSF
          add 1 to KAKUTEIf
          put item KAKUTEIf of HAIRETSUf into VVVV
        end if
        put char 1 of VVVV into me
        put char 2 of VVVV into cd fld ("s" & ( char 2 of short name of me ) )
        put "m" into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      else
        put "m" into cd fld (NUMB & "m" )
      put " " into cd fld ("sev" & NUMB )
      end if
    end if
    if it is 4
    then
      hide cd fld "flatfive2"
      hide cd fld "flat3"
      ----put "dim" into cd fld (NUMB & "m" )
      ----put " " into cd fld ("sev" & NUMB )
      if cd fld ( NUMB & "m" ) is not "m" and cd fld ( NUMB & "m" ) is not "dim" ---123123
      then
        put me into MYROOT
        put cd fld ( "s" & ( char 2 of short name of me) ) into MYSHARP
        if MYSHARP is " " then put empty into MYSHARP
        put ( MYROOT & MYSHARP ) into MYNAME
        put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
        put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
        put cd fld "KEY" into K
        put cd fld "KEYs" into S
        put cd fld "KEYm" into M
        if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))
        then
          repeat with i=1 to 12
            if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            --if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "SHARP" into FLAGSF
          add 1 to KAKUTEIs
          put item KAKUTEIs of HAIRETSUs into VVVV
        else
          repeat with i=1 to 12
            --if item i of HAIRETSUs is MYNAME then put i into KAKUTEIs
            if item i of HAIRETSUf is MYNAME then put i into KAKUTEIf
          end repeat
          PUT "FLAT" into FLAGSF
          add 1 to KAKUTEIf
          put item KAKUTEIf of HAIRETSUf into VVVV
        end if
        put char 1 of VVVV into me
        put char 2 of VVVV into cd fld ("s" & ( char 2 of short name of me ) )
        put "dim" into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      else
        put "dim" into cd fld (NUMB & "m" )
        put " " into cd fld ("sev" & NUMB )
      end if
    end if
  end if ---
  ----end if -----
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON"
end mouseLeave
BTAIL
+INFO
s7SCRP
on mouseDown
  put "#" & return & " " & return & "
" & return into menu_list
  popupMenu  menu_list at the mouseLoc
  if it is not 0 then
    put line it of menu_list into me
  end if
end mouseDown
 TAIL
,INFO
7mSCRP
on mouseDown
  put " " & return & "m" & return into menu_list
  popupMenu  menu_list at the mouseLoc
  if it is not 0 then
    put line it of menu_list into me
  end if
end mouseDown
mTAIL
UINFO
button id 85TAIL
VINFO
    flatfive1data
(b5)TAIL
WINFO
button id 87TAIL
XINFO
button id 88TAIL
YINFO
button id 89TAIL
ZINFO
button id 90TAIL
[INFO
button id 91TAIL
\INFO
button id 92TAIL
]INFO
    flatfive2data
(b5)TAIL
^INFO
field id 94SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON3"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON3"
end mouseLeave
Sample songTAIL
_INFO
button id 95SCRP
on mouseUp
  play bg sound "myguitar"
  answer "==
@COMPOSE IT!
@== (C)1997 Yasuyuki Suzuki" & return  & "Dedicated to *ALL* people who loves music."
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON8"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON8"
  end mouseLeave
button id 161SCRP
on mouseUp
  ------
@set hilite of me to true
  -----
@put cd fld tempo into tempo
  -----
@put 60000/ tempo into REAL
  -----
@set the units of bg timer "nome" to milliseconds
  -----
@start bg timer "nome" expire in REAL milliseconds
  metro
end mouseUp
tempodata
200TAIL
field id 165data
field id 166SCRP
on mouseDown
  put "2" & return & "4" & return & "8" & return & "16" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into me
  end if
end mouseDown
2TAIL
field id 167data
/TAIL
+SCRP
on mouseDown
  global FLDNUM ----------
  global BOYON ---------
  put "+1" & return & "+2" & return & "+3" & return & "+4" & return & "+5" & return & "+6" & return & "+7" & return & "+8" & return & "+9" & return & "+10" & return & "+11" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is 0 then exit mouseDown
  put it into SEL
  -------------------------------------------
  ask "
H(1-24)" with 1
  if it >= 1 and it <= 24
  then
    put it into HAJIMEDA
    ask "
H(" & HAJIMEDA & "-24)" with 24
    if it >= HAJIMEDA and it <=24
    then
      put it into OWARIDA
    else
      answer "
B" & HAJIMEDA &"-24
      exit mouseDown
    end if
  else
    answer "
B1-24
    exit mouseDown
  end if
  -------------------------------------------
  set cursor to 1001 -------- *******
  put "C,C#,D,D#,E,F,F#,G,G#,A,A#,B,C,C#,D,D#,E,F,F#,G,G#,A,A#,B" into HAIRETSUs
  put "C,D
,E,F,G
,B,C,D
,E,F,G
,B" into HAIRETSUf
  put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B " into HAIRETSUsb ---
  put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into HAIRETSUfb --
  ----
  global DOOMS
  put cd fld "KEY" & cd fld "KEYs" into SUKIYAKI
  repeat with z=1 to 12
    if item z of HAIRETSUsb is SUKIYAKI then put z into KAZUs
    if item z of HAIRETSUfb is SUKIYAKI then put z into KAZUf
  end repeat
  if KAZUs is empty
  then
    add SEL to KAZUf
    put item KAZUf of HAIRETSUfb into DOOMS
  else
    add SEL to KAZUs
    put item KAZUs of HAIRETSUsb into DOOMS
  end if
  put DOOMS into cd fld "SOUSIN"
  DOOM
  --------------------------------
  set cursor to 1002 --------**********
  repeat with  i=HAJIMEDA to OWARIDA
    put 0 into REALs
    put 0 into REALf
    put 0 into BBBB
    put char 1 to 2 of cd fld ( "fff" & i ) into ROTT
    if ROTT is not empty
    then
      if char 2 of ROTT is not "#" and char 2 of ROTT is not "
      then
        put empty into char 2 of ROTT
        put 1 into BBBB
      end if
      repeat with j=1 to 12
        if item j of HAIRETSUs is ROTT then put j into REALs
        if item j of HAIRETSUf is ROTT then put j into REALf
      end repeat
      if BBBB is 1
      then
        put cd fld "KEY" into K
        put cd fld "KEYs" into S
        put cd fld "KEYm" into M
        ------char 2 of cd fld ("ggg" & i ) is "#" or
        if S is "#" or ( ( S is " " ) and (M is " ") and ( ( K is "G") or ( K is "D") or ( K is "E") or ( K is "B"))) or ( M is "m" and S is " " and ( (K is E ) or (K is B))) or ( (K is "C" ) and (M is " " ) and ( S is " " )) or (( K is "A" ) and (M is "m" ) and (S is " "))

        then
          put (REALs + SEL) into REALs
          put item REALs of HAIRETSUs into KETTEI
          put KETTEI into char 1 of cd fld ( "fff" & i)
          put item REALs of HAIRETSUsb into BOYON ----
          put i into FLDNUM -------------------
          HARETSU -------------------------
        else
          put (REALf + SEL) into REALf
          put item REALf of HAIRETSUf into KETTEI
          put KETTEI into char 1 of cd fld ( "fff" & i)
          put item REALf of HAIRETSUfb into BOYON ----
          put i into FLDNUM -------------------
          HARETSU -------------------------
        end if
      else
        if REALs is 0
        then
          put (REALf + SEL) into REALf
          put item REALf of HAIRETSUf into KETTEI
          put KETTEI into char 1 to 2 of cd fld ( "fff" & i)
          put item REALf of HAIRETSUfb into BOYON ----
          put i into FLDNUM -------------------
          HARETSU -------------------------
        end if
        if REALf is 0
        then
          put (REALs + SEL) into REALs
          put item REALs of HAIRETSUs into KETTEI
          put KETTEI into char 1 to 2 of cd fld ( "fff" & i)
          put item REALs of HAIRETSUsb into BOYON ----
          put i into FLDNUM -------------------
          HARETSU -------------------------
        end if
      end if

    end if
  end repeat
  set cursor to 1072 ------*******
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON17"
  end if
end mouseEnter
on mouseLeave
  hide cd fld "BALLON17"
end mouseLeave
TAB screenSCRP
on mouseUp
  global WATASHI
  get the TAB1X of cd "MAINSCREEN"
  put it into x
  get the TAB1Y of cd "MAINSCREEN"
  put it into y
  put cd fld "BALLONSWITCH" into WATASHI
  popup next cd titled "TAB screen 1/2" at x , y
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON5"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON5"
end mouseLeave
bitmap id 175SCRP
on mouseUp
  play bg sound A440
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "BALLON4"
end mouseEnter
on mouseLeave
  hide cd fld "BALLON4"
end mouseLeave
fff1SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
7TAIL
~data
b1SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
hSCRP
on mouseUp
  show cd bmp "
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON16"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON16"
  end mouseLeave
a1SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
button id 206SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 207SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 208SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 209SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 210SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 211SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 212SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 213SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
c1SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
TTAIL
udata
ggg1SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
7TAIL
mmm1SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
}TAIL
mmm2SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
m7TAIL
button id 221SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "bnext"
  end if
end mouseEnter
on mouseLeave
  hide cd fld "bnext"
end mouseLeave
on mouseUp
  hide cd fld "bnext"
  compact stack
  put cd fld "
O" into NAMEE
  visual effect scroll up
  go stack NAMEE
end mouseUp
on mouseDown
  put "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
end mouseDown
a2SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
b2SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
b3SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a3SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a4SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a5SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a6SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a7SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
b4SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
b5SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
b6SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
b7SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
c2SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
c3SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
c4SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
TTAIL
c5SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
TTAIL
c6SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
SDTAIL
c7SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
DTAIL
c8SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
field id 267data
7TAIL
$INFO
ggg2SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
#m7-5TAIL
%INFO
ggg3SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
 7TAIL
&INFO
ggg4SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
 m7TAIL
'INFO
ggg5SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
7TAIL
(INFO
ggg6SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
 m7TAIL
)INFO
ggg7SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
 7TAIL
*INFO
ggg8SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
 dimTAIL
2INFO
fff2SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
F#m7-5TAIL
3INFO
fff3SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
F 7TAIL
4INFO
fff4SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
E m7TAIL
5INFO
fff5SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
7TAIL
6INFO
fff6SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
D m7TAIL
7INFO
fff7SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
G 7TAIL
8INFO
fff8SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
C dimTAIL
9INFO
mmm3SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
:INFO
mmm4SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
;INFO
mmm5SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
<INFO
mmm6SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
=INFO
mmm7SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
>INFO
mmm8SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
?INFO
a9SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
AINFO
a10SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
BINFO
a11SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
EINFO
a12SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
FINFO
a13SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
GINFO
a14SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
HINFO
a15SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
IINFO
button id 329SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
JINFO
button id 330SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
KINFO
button id 331SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
LINFO
button id 332SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
MINFO
button id 333SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
NINFO
button id 334SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
OINFO
button id 335SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
PINFO
button id 336SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
QINFO
fff9SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
RINFO
fff10SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
SINFO
fff11SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
TINFO
fff12SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
UINFO
fff13SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
VINFO
fff14SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
WINFO
fff15SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
XINFO
fff16SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
ZINFO
c9SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
[INFO
c10SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
\INFO
c11SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
]INFO
c12SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
^INFO
c13SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
_INFO
c14SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
`INFO
c15SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
aINFO
c16SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
bINFO
b9SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
cINFO
b10SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
dINFO
b11SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
eINFO
b12SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
fINFO
b13SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
hINFO
b14SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
iINFO
b15SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
jINFO
ggg9SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
kINFO
ggg10SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
lINFO
ggg11SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
nINFO
ggg12SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
pINFO
ggg13SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
qINFO
ggg14SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
rINFO
ggg15SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
sINFO
ggg16SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
tINFO
mmm9SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
uINFO
mmm10SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
vINFO
mmm11SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
wINFO
mmm12SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
xINFO
mmm13SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
yINFO
mmm14SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
zINFO
mmm15SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
{INFO
mmm16SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
|INFO
button id 380SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
}INFO
button id 381SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
~INFO
button id 382SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 383SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 384SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 386SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 387SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
button id 389SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON10"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON10"
  end mouseLeave
a17SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a18SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a19SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a20SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a21SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a8SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
a16SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
fff17SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
fff18SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
fff19SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
fff20SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
fff21SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
fff22SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
fff23SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
fff24SCRP
on mouseUp
  global SELEC
  put char 4 of the short name of me into SELEC
  put char 5 of the short name of me after SELEC
  show cd group "TABLET"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON11"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON11"
  end mouseLeave
c17SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
b17SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
c18SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
b18SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
c19SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
b19SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
c20SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
b20SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
c21SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
b21SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
c22SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
b8SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
c23SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
b16SCRP
on mouseDown
  global SELECA
  put char 2 of the short name of me into SELECA
  put char 3 of the short name of me after SELECA
  put " " & return & "
" & return & "
~" & return & "
u" & return & "
" & return into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1
    then
      put empty into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 2
    then
      put cd bmp "
" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 3
    then
      put cd bmp "
~" into cd bmp ( "A" & SELECA)
      put empty into cd bmp ( "B" & SELECA)
    end if
    if it is 4
    then
      put cd bmp "
u" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
    if it is 5
    then
      put cd bmp "
" into cd bmp ( "B" & SELECA)
      put empty into cd bmp ( "A" & SELECA)
    end if
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON12"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON12"
  end mouseLeave
c24SCRP
on mouseDown
  put " " & return & "
N" & return & "
g" & return & "
g" & return & "
[" & return & "
g" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    if it is 1 then put empty into me
    if it is 2 then put "T" into me
    if it is 3 then put "SD" into me
    if it is 4 then put "D" into me
    if it is 5 then put "SDM" into me
    if it is 6 then put "DD" into me
  end if
end mouseDown
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON13"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON13"
  end mouseLeave
ggg17SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
ggg18SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
ggg19SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
ggg20SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
ggg21SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
ggg22SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
ggg23SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
ggg24SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON15"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON15"
  end mouseLeave
mmm17SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
mmm18SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
mmm19SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
mmm20SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
mmm21SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
mmm22SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
mmm23SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
mmm24SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON14"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON14"
  end mouseLeave
hSCRP
on mouseUp
  hide me
end mouseUp
&&&&
?INFO
noneSCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  global SCONE
  put "C  " & return & "A m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
>INFO
flat1SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  global SCONE
  put "F  " & return & "D m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
=INFO
flat2SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "B
 " & return & "G m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
<INFO
flat3SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "E
 " & return & "C m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
;INFO
flat4SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "A
" & return & "F m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
6INFO
flat6SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "G
 " & return & "E
m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
:INFO
flat5SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "D
 " & return & "B
m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
5INFO
flat7SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "C
 " & return & "A
m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp "HYOJI"
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
OINFO
sharp1SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "G  " & return & "E m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
NINFO
sharp2SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "D  " & return & "B m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
MINFO
sharp3SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "A  " & return & "F#m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
LINFO
sharp4SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "E  " & return & "C#m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
KINFO
sharp5SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "B  " & return & "G#m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
JINFO
sharp6SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "F# " & return & "D#m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
TABLETdata
IINFO
sharp7SCRP
on mouseEnter
  set the inkeffect of the target to invert
end mouseEnter
on mouseLeave
  set the inkeffect of the target to none
end mouseLeave
on mouseDown
  GLOBAL SCONE
  put "C# " & return & "A#m" into menu_list
  popupMenu menu_list at the mouseLoc
  if it is not 0
  then
    put line it of menu_list into SCONE
    put me into cd bmp HYOJI
  end if
  hide cd group "scopup"
  ANWAY
end mouseDown
field id 269SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
  put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
field id 268SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
  put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7TAIL
field id 266SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
  put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7TAIL
field id 250SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
  put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
6TAIL
field id 253SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
  put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
9TAIL
field id 254SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
9/6TAIL
field id 255SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
6/7TAIL
field id 256SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
9TAIL
field id 257SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
11TAIL
field id 258SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
11TAIL
field id 259SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
11#TAIL
field id 260SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
13TAIL
field id 261SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
sus4TAIL
field id 262SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7sus4TAIL
field id 263SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
dimTAIL
field id 264SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
augTAIL
    INFO
field id 265SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7+5TAIL
field id 285SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
9+5TAIL
field id 270SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7-5TAIL
field id 271SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7-9TAIL
field id 272SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7-10TAIL
field id 273SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
9-5TAIL
field id 274SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7+9-5TAIL
field id 275SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7-9+5TAIL
field id 276SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7-9-5TAIL
field id 277SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
mTAIL
field id 278SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
m7TAIL
field id 279SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
7TAIL
field id 280SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
m6TAIL
field id 281SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
m9TAIL
field id 282SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
m9/6TAIL
field id 283SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
m7-5TAIL
field id 284SCRP
on mouseUp
  global SELEC
  put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
   put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & me ) into cd fld ( "GGG" & SELEC )
end mouseUp
m7-9TAIL
ROOTSCRP
on mouseDown
  put "C" & return & "D" & return & "E" & return & "F" & return & "G" &return & "A" & return & "B" & return into menu_list
  popupMenu  menu_list at the mouseLoc
  if it is not 0 then
    put line it of menu_list into me
    ----B#,,F
    if  cd fld "ROOT" is "B" and cd fld "ROOTs" is "#"
    then
      put "C" into cd fld "ROOT"
      put " " into cd fld "ROOTs"
    end if
    if  cd fld "ROOT" is "E" and cd fld "ROOTs" is "#"
    then
      put "F" into cd fld "ROOT"
      put " " into cd fld "ROOTs"
    end if
    if  cd fld "ROOT" is "F" and cd fld "ROOTs" is "
    then
      put "E" into cd fld "ROOT"
      put " " into cd fld "ROOTs"
    end if
  end if---------
end mouseDown
CTAIL
 INFO
ROOTsSCRP
on mouseDown
  put " " & return & "#" & return & "
" & return into menu_list
  popupMenu  menu_list at the mouseLoc
  if it is not 0 then
    put line it of menu_list into me
    ----B#,,F
    if  cd fld "ROOT" is "B" and cd fld "ROOTs" is "#"
    then
      put "C" into cd fld "ROOT"
      put " " into cd fld "ROOTs"
    end if
    if  cd fld "ROOT" is "E" and cd fld "ROOTs" is "#"
    then
      put "F" into cd fld "ROOT"
      put " " into cd fld "ROOTs"
    end if
    if  cd fld "ROOT" is "F" and cd fld "ROOTs" is "
    then
      put "E" into cd fld "ROOT"
      put " " into cd fld "ROOTs"
    end if
  end if---------
end mouseDown
 TAIL
"INFO
field id 290data
ROOTTAIL
#INFO
field id 291data
BTAIL
on mouseUp
  global SELEC
  ask "
  put it into HOGE
  put cd fld "ROOT" & cd fld "ROOTs" & it into cd fld ( "fff" & SELEC )
  hide cd group "TABLET"
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if cd fld "ROOTS" is "#" or cd fld "ROOTS" is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if cd fld "ROOTS" is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is ( cd fld "ROOT" & cd fld "ROOTs" )
    then
      put i into GETYOU
    end if
  end repeat
  put "
 " into GREEK
  put ( ( item GETYOU of GREEK ) & HOGE ) into cd fld ( "GGG" & SELEC )
end mouseUp
    CLEAR ALLSCRP
on mouseUp
  answer "
H" with "
" or "
  if it is "
  then
    put 1000 into CURS
    repeat with i=1 to 24
      add 1 to CURS
      if CURS = 1005 then put 1001 into CURS
      set the cursor to CURS
      put empty into cd fld ( "fff" & i)
      put empty into cd fld ( "ggg" & i)
      put empty into cd fld ( "mmm" & i)
      put empty into cd fld ( "c" & i)
    end repeat
    repeat with i=1 to 21
      add 1 to CURS
      if CURS = 1005 then put 1001 into CURS
      set the cursor to CURS
      put empty into cd bmp ( "a" & i )
      put empty into cd bmp ( "b" & i )
    end repeat
  end if
  set the cursor to 1072
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON9"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON9"
  end mouseLeave
on mouseUp
  hide cd group "TABLET"
end mouseUp
on mouseUp
  global SELEC
  put empty into cd fld ( "fff" & selec )
  put empty into cd fld ( "ggg" & selec )
  hide cd group "TABLET"
end mouseUp
membersdata
field id 269
the reference of field id 268
the reference of field id 267
the reference of field id 266
the reference of field id 250
the reference of field id 253
the reference of field id 254
the reference of field id 255
the reference of field id 256
the reference of field id 257
the reference of field id 258
the reference of field id 259
the reference of field id 260
the reference of field id 261
the reference of field id 262
the reference of field id 263
the reference of field id 264
the reference of field id 265
the reference of field id 285
the reference of field id 270
the reference of field id 271
the reference of field id 272
the reference of field id 273
the reference of field id 274
the reference of field id 275
the reference of field id 276
the reference of field id 277
the reference of field id 278
the reference of field id 279
the reference of field id 280
the reference of field id 281
the reference of field id 282
the reference of field id 283
the reference of field id 284
the reference of field id 287
the reference of field id 288
the reference of field id 290
the reference of field id 291
the reference of field id 451
the reference of field id 286
the reference of button id 450
sev1SCRP
on mouseDown
end mouseDown
7TAIL
sev2SCRP
on mouseDown
end mouseDown
7TAIL
sev3SCRP
on mouseDown
end mouseDown
7TAIL
sev4data
7TAIL
sev5SCRP
on mouseDown
end mouseDown
7TAIL
sev6SCRP
on mouseDown
end mouseDown
7TAIL
sev7SCRP
on mouseDown
end mouseDown
7TAIL
BALLONdata
BTAIL
bnextdata
BTAIL
BALLON2data
BALLON3data
BTAIL
BALLON4data
OA=440TAIL
BALLON5data
BALLONSCRP
on mouseUp
  if cd fld "BALLONSWITCH" is "ON"
  then
    answer "
H" with "
" or "
    if it is "
" then put "OFF" into cd fld "BALLONSWITCH"
    exit mouseUp
  end if
  if cd fld "BALLONSWITCH" is "OFF"
  then
    answer "
H" with "
" or "
    if it is "
" then put "ON" into cd fld "BALLONSWITCH"
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "BALLON7"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "BALLON7"
  end mouseLeave
BALLONSWITCHdata
ONTAIL
BALLON7data
BTAIL
BALLON8data
....TAIL
BALLON9data
BTAIL
BALLON10data
BALLON11data
BTAIL
BALLON13data
)TAIL
BALLON12data
BTAIL
BALLON14data
)TAIL
BALLON15data
BTAIL
BALLON16data
BALLON17data
)TAIL
BALLON18data
)TAIL
OSCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "bnextname"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "bnextname"
  end mouseLeave
button id 485SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "bprev"
  end if
end mouseEnter
on mouseLeave
  hide cd fld "bprev"
  end mouseLeave
on mouseUp
  hide cd fld "bprev"
  compact stack
  put cd fld "
O" into NAMEE
  visual effect scroll down
  go stack NAMEE
end mouseUp
OSCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "bprevname"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "bprevname"
  end mouseLeave
bprevdata
BTAIL
    bnextnamedata
jTAIL
    bprevnamedata
jTAIL
BALLON1data
BTAIL
    flatfive3data
(b5)TAIL
flat1data
flat2data
flat3data
sousinbuttonSCRP
on mouseUp
  global DOOMS
  put cd fld "SOUSIN" into DOOMS
  DOOM
end mouseUp
SOUSINdata
C TAIL
b2nddata
BTAIL
    bdiatonicdata
BTAIL
button id 501SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "bdiatonic"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "bdiatonic"
  end mouseLeave
button id 502SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "bmetro"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "bmetro"
  end mouseLeave
bmetrodata
BTAIL
on mouseUp
  show cd fld "sdmfld"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON"
  then
    show cd fld "bsdm"
  end if
end mouseEnter
  on mouseLeave
  hide cd fld "bsdm"
  end mouseLeave
sdmfldSCRP
on mouseUp
  hide me
end mouseUp
---------------------------
m7-5

yclick to erase
zTAIL
bsdmdata
BTAIL
bgenelaterdata
B......
BTAIL
on mouseUp
  answer "Compose It!
H" with "OK" or "
  if it is "OK"
  then
    quit
  end if
end mouseUp
II1)JJ@
Iy!)JK
IA!)JJ
TABSCREEN1/2SCRP
on openCard
  global WATASHI
  put WATASHI into cd fld "BALLONSWITCH"
end openCard
tab2x
tab2y
234card
(>LST
chord1SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
field id 2SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
7TAIL
kaihou1SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
button id 4SCRP
on mouseUp
  put empty into cd picklist "chord1"
  put empty into cd picklist "kaihou1"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
field id 6SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
field id 7SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
field id 8SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
field id 15SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
field id 16SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bname"
end mouseEnter
on mouseLeave
  hide cd fld "bname"
end mouseLeave
CdimTAIL
KINFO
button id 75SCRP
on mouseUp
  put the loc of cd window into ABC
  set the TAB1X of cd "MAINSCREEN" to item 1 of ABC
  set the TAB1Y of cd "MAINSCREEN" to item 2 of ABC
  hide cd fld "breturn"
  dismiss
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "breturn"
end mouseEnter
on mouseLeave
  hide cd fld "breturn"
end mouseLeave
TINFO
chord2SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
UINFO
chord3SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
VINFO
chord4SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
WINFO
chord5SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
XINFO
chord6SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into  cell y , x of me
    exit mouseUp
  end if
  if cell y,x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put "
" into cell y , x of me
    exit mouseUp
  end if
  if cell y , x of me is "
  then
    repeat with i=1 to 4
      put empty into cell i,x of me
    end repeat
    put empty into cell y , x of me
    exit mouseUp
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bmain"
end mouseEnter
on mouseLeave
  hide cd fld "bmain"
end mouseLeave
MOCELL10
YINFO
button id 89SCRP
on mouseUp
  put empty into cd picklist "chord2"
  put empty into cd picklist "kaihou2"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
ZINFO
button id 90SCRP
on mouseUp
  put empty into cd picklist "chord3"
  put empty into cd picklist "kaihou3"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
[INFO
button id 91SCRP
on mouseUp
  put empty into cd picklist "chord6"
  put empty into cd picklist "kaihou6"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
\INFO
button id 92SCRP
on mouseUp
  put empty into cd picklist "chord5"
  put empty into cd picklist "kaihou5"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
]INFO
button id 93SCRP
on mouseUp
  put empty into cd picklist "chord4"
  put empty into cd picklist "kaihou4"
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bclear"
end mouseEnter
on mouseLeave
  hide cd fld "bclear"
end mouseLeave
^INFO
kaihou2SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
_INFO
kaihou3SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
`INFO
kaihou6SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
aINFO
kaihou5SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
bINFO
kaihou4SCRP
on mouseUp y , x
  if cell y , x of me is empty
  then
    put "
" into  cell y , x of me
  else
    if cell y,x of me is "
    then
      put "
~" into cell y , x of me
    else
      if cell y,x of me is "
      then
        put empty into cell y , x of me
      end if
    end if
  end if
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bopen"
end mouseEnter
on mouseLeave
  hide cd fld "bopen"
end mouseLeave
MOCELL10
hINFO
button id 104SCRP
on mouseUp
  global WATASHI
  get the TAB2X of cd "TABSCREEN1/2"
  put it into x
  get the TAB2Y of cd "TABSCREEN1/2"
  put it into y
  put cd fld "BALLONSWITCH" into WATASHI
  popup next cd titled "TAB screen 2/2" at x , y
end mouseUp
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bnext"
end mouseEnter
on mouseLeave
  hide cd fld "bnext"
end mouseLeave
iINFO
field id 105SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
jINFO
field id 106SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
2TAIL
kINFO
field id 107SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
12TAIL
lINFO
field id 108SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
12TAIL
mINFO
field id 109SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
12TAIL
nINFO
field id 110SCRP
on mouseEnter
  if cd fld "BALLONSWITCH" is "ON" then show cd fld "bflet"
end mouseEnter
on mouseLeave
  hide cd fld "bflet"
end mouseLeave
12TAIL
oINFO
bnamedata
pINFO
bfletdata
qINFO
bmaindata
rINFO
bcleardata
sINFO
bopendata
tINFO
bnextdata
uINFO
breturndata
wINFO
BALLONSWITCHdata
ONTAIL
wwww$
wwww
wwww$
wwww$
wwww$
on openStack
  set the fullscreen to false
  show menubar
end openStack
on metro  -----
  put cd fld tempo into tempo
  put 60000/ tempo into REAL
  put the Msecs into JIKAN
  repeat until the mouse is down
    if REAL < ( ( the Msecs ) - JIKAN )
    then
      play bg sound "metro"
      put the Msecs into JIKAN
    end if
  end repeat
end metro
on quit
  compact stack
  pass quit
end quit
on DOOM
  put "C" & return & "D" & return & "E" & return & "F" & return & "G" &return & "A" & return & "B" & return into menu_list
  -----popupMenu  menu_list at the mouseLoc
  global DOOMS
  put char 1 of DOOMS into cd fld "KEY"
  put char 2 of DOOMS into cd fld "KEYs"
  ----if it is not 0 then
  ----put line it of menu_list into me
  repeat with i=1 to 7
    put "7" into cd fld ( "sev" & i )
  end repeat
  ----B#,,F
  if  cd fld KEY is "B" and cd fld KEYs is "#"
  then
    put "C" into cd fld "KEY"
    put " " into cd fld "KEYs"
  end if
  if  cd fld KEY is "E" and cd fld KEYs is "#"
  then
    put "F" into cd fld "KEY"
    put " " into cd fld "KEYs"
  end if
  if  cd fld KEY is "F" and cd fld KEYs is "
  then
    put "E" into cd fld "KEY"
    put " " into cd fld "KEYs"
  end if
  -------
  global REALKEY
  put cd fld KEY into KEY
  put cd fld KEYm into KEYm
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALKEY
  if KEY is "D" then put 3 into REALKEY
  if KEY is "E" then put 5 into REALKEY
  if KEY is "F" then put 6 into REALKEY
  if KEY is "G" then put 8 into REALKEY
  if KEY is "A" then put 10 into REALKEY
  if KEY is "B" then put 12 into REALKEY
  if KEYs is "#" then put ( REALKEY + 1 ) into REALKEY
  if KEYs is "
" then put ( REALKEY - 1 ) into REALKEY
  if REALKEY is 0 then put 12 into REALKEY
  --------
  if cd fld "KEYm" is " "
  then
    put "
,m,m,
,  ,m,m" into MEJAMI
    put "1,3,5,6,8,10,12" into KEYHAI
    hide cd fld "flat1"
    hide cd fld "flat2"
    hide cd fld "flat3"
    hide cd fld "flatfive3"
    hide cd fld "flatfive1"
  else
    put "m,m,
,m, ,
, " into MEJAMI
    put "1,3,4,6,8,9,11" into KEYHAI
    show cd fld "flat1"
    show cd fld "flat2"
    show cd fld "flat3"
    hide cd fld "flatfive3"
    hide cd fld "flatfive1"
  end if
  repeat with i =1 to 7
    put item i of MEJAMI into cd fld ( i & "m" )
  end repeat
  --------
  global CHRs , CHRf , REAL , BGAG
  put KEYs into SHAFLA
  repeat with i = 1 to 7
    get item i of KEYHAI
    add ( REALKEY - 1 ) to it
    if it > 12 then put ( it - 12 ) into it
    put it into REAL
    NAMtoCHR
    put ( (cd fld "KEY" )& ( cd fld "KEYs")  & ( cd fld "KEYm" ) ) into BGAG
    if BGAG is "G  " or BGAG is "D  " or BGAG is "A  " or BGAG is "E  " or BGAG is "B  " or BGAG is "E m" or BGAG is "B m" or cd fld "KEYs" is "#"
    then
      put char 1 of CHRs into cd fld ("K" & i)
      put char 2 of CHRs into cd fld ("s" & i)
    else
      put char 1 of CHRf into cd fld ("K" & i)
      put char 2 of CHRf into cd fld ("s" & i)
    end if
  end repeat
  ------
  -- c
  if cd fld "KEY" is "C" and cd fld "KEYs" is "
  then
    put "C" into cd fld "K1"
    put "
" into cd fld "S1"
  end if
  if cd fld "KEYm" is "m"
  then
    show cd fld "flatfive1"
    hide cd fld "flatfive2"
  else
    show cd fld "flatfive2"
    hide cd fld "flatfive1"
  end if
  ---------
  if BGAG is "C
 " or BGAG is "A
m" then put cd bmp "flat7" into cd bmp "HYOJI"
  if BGAG is "G
 " or BGAG is "E
m" then put cd bmp "flat6" into cd bmp "HYOJI"
  if BGAG is "D
 " or BGAG is "B
m" then put cd bmp "flat5" into cd bmp "HYOJI"
  if BGAG is "A
 " or BGAG is "F m" then put cd bmp "flat4" into cd bmp "HYOJI"
  if BGAG is "E
 " or BGAG is "C m" then put cd bmp "flat3" into cd bmp "HYOJI"
  if BGAG is "B
 " or BGAG is "G m" then put cd bmp "flat2" into cd bmp "HYOJI"
  if BGAG is "F  " or BGAG is "D m" then put cd bmp "flat1" into cd bmp "HYOJI"
  if BGAG is "C  " or BGAG is "A m" then put cd bmp "none" into cd bmp "HYOJI"
  if BGAG is "G  " or BGAG is "E m" then put cd bmp "sharp1" into cd bmp "HYOJI"
  if BGAG is "D  " or BGAG is "B m" then put cd bmp "sharp2" into cd bmp "HYOJI"
  if BGAG is "A  " or BGAG is "F#m" then put cd bmp "sharp3" into cd bmp "HYOJI"
  if BGAG is "E  " or BGAG is "C#m" then put cd bmp "sharp4" into cd bmp "HYOJI"
  if BGAG is "B  " or BGAG is "G#m" then put cd bmp "sharp5" into cd bmp "HYOJI"
  if BGAG is "F# " or BGAG is "D#m" then put cd bmp "sharp6" into cd bmp "HYOJI"
  if BGAG is "C# " or BGAG is "A#m" then put cd bmp "sharp7" into cd bmp "HYOJI"
  ----end if---------
end DOOM
on NAMtoCHR
  global REAL , CHRs , CHRf
  put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B " into CHRLSTs
  put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into CHRLSTf
  put item REAL of CHRLSTs into CHRs
  put item REAL of CHRLSTf into CHRf
end NAMtoCHR
------------------------
on HARETSU
  ----global SELEC
  ----put ( cd fld "root" & cd fld "roots" & me ) into cd fld ( "fff" & SELEC )
  ----hide cd group "TABLET"
  global FLDNUM
  global BOYON
  ------
  global REALROOT
  put cd fld KEY into KEY
  put cd fld KEYs into KEYs
  if KEY is "C" then put 1 into REALROOT
  if KEY is "D" then put 3 into REALROOT
  if KEY is "E" then put 5 into REALROOT
  if KEY is "F" then put 6 into REALROOT
  if KEY is "G" then put 8 into REALROOT
  if KEY is "A" then put 10 into REALROOT
  if KEY is "B" then put 12 into REALROOT
  if KEYs is "#" then put ( REALROOT + 1 ) into REALROOT
  if KEYs is "
" then put ( REALROOT - 1 ) into REALROOT
  if char 2 of BOYON is "#" or char 2 of BOYON is " "
  then
    put "C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C ,C#,D ,D#,E ,F ,F#,G ,G#,A ,A#,B ,C " into KENBAN
  end if
  if char 2 of BOYON is "
  then
    put "C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B ,C ,D
,D ,E
,E ,F ,G
,G ,A
,A ,B
,B " into KENBAN
  end if
  repeat with i = REALROOT to ( REALROOT + 11 )
    put item i of KENBAN after HAIRETSU
    put "," after HAIRETSU
  end repeat
  repeat with i = 1 to 12
    if item i of HAIRETSU is BOYON
    then
      put i into GETYOU
    end if
  end repeat
  put "
 " into GREEK
  put  item GETYOU of GREEK  into char 1 to 2 of cd fld ( "GGG" & FLDNUM ) -------
end HARETSU
on closeStack
  compact Stack
end closeStack
PFONT
    AGARAMOND
AGARAMOND BOLD
AGARAMOND BOLDITALIC
AGARAMOND ITALIC
AGARAMOND SEMIBOLD
AGARAMOND SEMIBOLDITALICo x
ALOISEN
ARAKAWA
ARIAL
ARIAL BLACK
ATHENSx
AVANT GARDE
B VAG ROUNDED BOLDo
BEBOX
BELTWAY
BIPOLAR-NOMALON
BLK VAG ROUNDED BLACKhi
BOOKMAN
BOOKMAN OLD STYLE BOLD
CAIRO
CHARCOAL
CHICAGO
CHORDFONT 4.0
COMIC SANS MS
COURIER
COURIER NEW
CUBASE
CUBASE DATA FONT
DOTPLAINLCD
DOTPLLCD-KANA
    ESPI SANS
ESPI SANS BOLD
FRENCHSCRIPT
FUKAGAWA
FUKUROI
FUTALIC
GARAMOND BOLDCONDENSED
GARAMOND BOLDCONDENSEDITALIC
GARAMOND BOOKCONDENSED
GARAMOND BOOKCONDENSEDITALIC
GARAMOND LIGHTCONDENSED
GARAMOND LIGHTCONDENSEDITALIC
GARAMOND ULTRACONDENSED
GARAMOND ULTRACONDENSEDITALIC
GENEVAo
GEORGIA
GROBDAe
    HAMAMATSUt
HARMONY
HARPSEL
    HELVETICABL
IMPACT
INSIGNIALQMONO
INSIGNIALQPROP
ITC OFFICINA SANS BOLD
ITC OFFICINA SANS BOLDITALIC
ITC OFFICINA SANS BOOK
ITC OFFICINA SANS BOOKITALIC
ITC OFFICINA SERIF BOLD
ITC OFFICINA SERIF BOLDITALIC
ITC OFFICINA SERIF BOOK
ITC OFFICINA SERIF BOOKITALIC
JETPLUS
KIDPRINT
KONAMI
L VAG ROUNDED LIGHT
LOCKFONT
LONDON
LOS ANGELES
    LYDIAN MT
MAKUHARI
MATSUDO
MINION WEB
MOBILE
MONACOa
MONNAKA
MONOTYPE.COM
MSXJLEC
N HELVETICA NARROW
NAMCO
    NARASHINO
NARITAe
NARITA
NCHORDS
NEW CENTURY SCHLBK
NEW YORK is
NUPTIALSCRIPT 1
OSAKA
PALATINO
PERFPRINTGENEVA
PERFPRINTICONS
PETRUCCI
QUICKSCRIBE
SAN FRANCISCOEL
SCORE FONT 4.0d
SEVILLE
SUMIDA
SWING
SYMBOL
T VAG ROUNDED THIN
TAMBURO
TECTON
THEXDER
    THYRISTOR p
TIMES
TIMES NEW ROMAN
TORONTO
TREBUCHET MSCA)
TTYFONT
VENICE
VERDANA
VERITAS
VT100
WEBDINGS in
    WINGDINGS
WOODTYPE ORNAMENTS 1wn
XEVIOUS
ZAPF CHANCERY
ZAPF DINGBATS
nd IDMO